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随 着 社会 的 发 展 和 科学 技术 的 进步 ,需要 解决 的 问题 越 来 越 多 ,也 越 来 越 复杂 ,计算 机 
与 计算 数学 的 关系 也 越 来 越 密 切 ,古老 的 计算 数学 发 展 成 了 一 门 现 代 意 义 下 的 新 学 科 一 一 
科学 计算 。 科 学 计算 在 国防 经济、 天 气 预报 .工程 .航空 航天 工业 .自然 科学 等 领域 有 着 广 
泛 的 应 用 ,科学 计算 已 和 理论 计算 、 实 验 并 列 为 三 大 科学 方法 。 科 学 计算 离 不 开 计 算 机 ,但 
它 更 离 不 开 计 算 方 法 。 美 国 著名 的 计算 数学 家 Babuska 曾 说 过 :“ 没 有 好 的 计算 方法 ,超级 
计算 机 就 是 超级 废 铁 .” 人 类 的 计算 能 力 等 于 计算 工具 的 效率 与 计算 方法 的 效率 的 乘积 ,这 
一 形象 化 的 公式 表达 了 硬件 与 计算 方法 对 于 计算 能 力 的 同等 重要 性 。 现 代 意 义 下 的 计算 数 
学 要 研究 的 是 在 计算 机 上 进行 大 规模 计算 的 有 效 算 法 及 其 相应 的 数学 理论 , 它 是 科学 计算 
的 核心 。 

本 书 详细 、 系统 地 阐述 了 常用 的 数值 算法 和 一 些 现代 算法 的 原理 ,并 用 目前 最 流行 的 三 
大 数学 软件 MATLAB,Maple 和 Mathematica 之 一 的 MATLAB 全 部 实现 了 这 些 数值 算 
法 ,本 书 偏 重 于 算法 的 实现 ,强调 例题 的 分 析 和 应 用 ,引导 读者 轻松 入 门 ,深刻 理解 .掌握 算 
法 原理 ,并 迅速 应 用 。 

在 结构 体系 方面 , 先 介绍 数值 算法 的 详细 计算 方法 (公式 ) 和 相关 概念 ,其 次 给 出 实现 算 
法 的 MATLAB 程序 ,最 后 给 出 范例 。 力 求 把 最 实用 、 最 重要 的 知识 讲 清楚 ,把 最 有 效 的 算 
法 和 最 实用 的 程序 展现 给 读者 。 每 个 算法 后 都 列举 了 典型 范例 ,对 大 多 数 例 题 采用 多 种 数 
值 解法 (包括 MATLAB 程序 包 中 的 数值 算法 ) ,并 尽量 用 图 形 显示 计算 结果 ,以 便 直观 观察 
和 比较 不 同方 法 的 计算 效果 。 对 有 精确 解 (解析 解 ) 的 问题 ,将 数值 算法 求 出 的 数值 解 与 精 
确 解 比较 ,客观 地 评价 数值 算法 的 优 劣 ,以 便 选 择 精度 高 的 最 佳 数 值 算法 。 在 编程 过 程 中 采 
用 高 效 的 计算 方式 ,减少 不 必要 的 重复 计算 ,尽量 少 调用 函数 且 注 重 误差 的 传播 等 编程 细 
节 , 并 对 一 些 算 法 的 适用 范围 . 优 劣 和 误差 以 及 参数 和 初始 值 对 计算 结果 的 影响 进行 了 分 
析 。 帮 助 读 者 理解 .掌握 .改进 数值 算法 ,提高 数值 分 析 的 技能 和 编程 能 力 。 

本 书 从 二 十 多 本 国内 外 教材 和 十 几 篇 国内 外 公开 发 表 的 论文 中 精 选 了 170 多 个 典型 例 
题 ,并 通过 大 量 的 数据 结果 和 150 多 幅 图 表 详 细 地 介绍 了 常用 的 经 典 数值 算法 和 一 些 现代 
算法 的 算法 原理 及 其 应 用 。 所 有 源 程序 完全 开放 ,程序 全 部 用 形式 参数 书写 ,读者 只 需 输入 
参数 .函数 和 数据 等 就 可 方便 地 使 用 它们 ,当然 也 可 以 根据 自己 的 需求 更 改 这 些 程序 。 书 中 
的 所 有 算法 程序 都 在 MATLAB 7. 1 中 验证 通过 ,并 通过 不 同 的 算法 或 精确 解 检 验 了 程序 
的 正确 性 。 


常用 数值 算法 及 其 MATLAB 实 现 


国家 自然 科学 基金 项 目 ( 项 目 编号 :; 51078225) 和 山东 省 高 等 教育 名 校 建设 工程 一 山东 
建筑 大 学 特色 专业 建设 项 目 对 本 书 的 出 版 给 予 了 资助 ,在 此 表示 衷心 的 感谢 。 
由 于 作者 水 平 所 限 , 书 中 不 妥 或 错误 之 处 在 所 难免 ,恳请 读者 批评 指正 。 


作 者 
2014 年 2 月 


PO 


四 


Ls 


1 


Gauss-Jordan 消去 法 .pp 
人 奶 赶 法 :pp 
Jacobi 渤 代 法 和 
Gauss-Seidel 迭代 法 入 


SES 


] 


3 


‘0 路 


10 
11 
12 


i 


误差 的 传播 ……… 


1.2.1 尽量 避免 两 个 相近 的 数 相 减 …… 


a 
和 
1.2.4 简化 计算 步骤 ,减少 运算 次 数 人 


数值 算法 的 稳定 性 ……………………… 


中 中 一 


NM 常用 数值 算法 及 其 MATLAB 实 现 


入 3 章 ”函数 的 插值 Wed 
Lagrange 插值 和 
Hermite 捅 值 … 
… 71 


3.1 
3 2 
3.3 
3. 4 
3. 9 


ba 9 ER EW 
4.4. 1 用 Legendre 多 项 式 作 最 佳 平方 通 近 多 项 式 ………………………………………… 
4.4.2 用 Chebyshev 多 项 式 作 最 佳 平方 通 近 多 顶 式 “和 
4.5.1 线性 最 小 二 乘 拟 合 和 
4.5.3 非 线 性 最 小 二 乘 拟 合 举例 … ET 
pp ns . 108 


4.1 
4.2 
4.3 
4. 4 


4.6 


分 段 三 次 Hermite 插值 


3.5.3 非 节 点 样 条 插值 郴 数 
< 证 ;证 周期 和 条 搬 但 前 锋 、 


最 佳 一 致 通 近 多 项 式 


曲线 拟 合 的 最 小 二 乘法 … 


4.5.2 用 正 交 多 项 式 作 最 小 二 乘 拟 合 … 


Pade 有 理 盘 近 … 


第 5 章 数值 积分 … 


9.1 


9 2 


9.3 
5».4 
9.9 


复合 求 积 公式 - 
5.1.2 复合 Simpson 公式 
变 步 长 的 求 积 公式 … 


5.2.1 变 步 长 的 梯形 公式 … 
5.2.2 变 步 长 的 Simpson 公式 


5.5.1 Gauss-Legendre 求 积 公 式 
5.5.2 Gauss-Chebyshev 求 积 公式 … 


46 


46 


49 


92 


61 


61 


66 


79 


83 


87 


93 


93 


96 


99 


105 


* 115 
5. 1. 1 复合 梯形 公式 

118 
5.1.3 复合 Cotes 公式 
-121 
. 121 
5.2. 3 恋 步 长 的 Cotes 公式 

Romberg 积分 法 
Gauss 求 积 公式 ee 
. 129 
a 


11s 


119 


L123 
124 
127 
129 


5.0 


D。(f 


9.8 


一 元 好 数 的 极 小 值 a 


| 


0 
= 


6.7 
6.8 


第 7 章 ”和 矩阵 特征 值 与 特征 向 量 的 计算 …………… 


(| 


1.2 


4 
1.4 
{1.9 


5. 5.3 ”Gauss-Laguerre 求 积 公 式 和 pp 
5.5.4 Gauss-Hermite 求 积 公式 ee 
5.6.1 GaussRadaug 求 各 从 于 enn 
5.6 GaussLobatto 来 积 公 起 sorperereinseneir pnt 
一 重 积 分 的 数值 计 第 osrebre 


5.7.1 复合 Simpson 公式 
5.7.2 变 步 长 的 Simpson 公式 
5.7.3 复合 Gauss 公式 


和 


.1.2 Fibonacci 搜索 法 


6 
6 
6 


Nelder-Mead 方法 


最 速 下 降 法 rp a SP 
共 斩 梯 度 法 和 
拟 牛 顿 法 RT Tp 汪汪 要 汪 帮 攻击 硬 二 看 肖 


6.6.1 DFP 法 


上 Hessenberg 矩阵 和 QR 分 解 


7.1.1 化 矩阵 为 上 Hessenberg 抢 阵 pp 
梁 窟 法 与 反 竺 了 凑 eeoeoosesooeoosoosoosoaeooossoeossieaeeseoeiooessassoswsssesoseoossseeas 
Tacobl DE wwe 


QR 方法 


VI 


OE 
RE RE OE VO 


8. 1 
8. 2 


本 
‘Oo 人 w 


pe OO 
牛顿 法 和 
OREN 
拟 牛 顿 法 PP pT ep A 
9.4.1 Broyden 方法 ee 


9. 1 
9.2 
2 
9. 4 


9.5 
号 


第 10 章 


10. 1 


10.2 


10.3 


常用 数值 算法 及 其 MATLAB 实 现 


7.5.1 上 Hessenberg 的 QR 方法 pp 


8.2.1 Aitken 加 速 法 


8. 2. 2 Steffensen 加 速 法 .pp 
和 
制 | 线 法 PP 生 站 要 各 而 汕 沁 市 本 新 二 省 十 而 认 直击 页 徊 刘 各 利 下 着 生 丰 本 昌 天 者 刘 生 面市 而 机 汪 生 机 六 庙 间 惠 胡 刘 而 检 南昌 下 吉 生 届 志 大 是 南音 市 出 汪 浊 训 妆 着 吉 汪 溃 浊 大 新 
Halley 法 ee 


Brent 法 


9. 4.2 DFP 方法 
9. 4.3 ” BFS 方法 


党 微分 方程 初 值 问 题 的 数 信 和 解法 


Euler 方法 . 


10. 1.2 改进 的 Euler 方法 pp 
Runge-Kutta 方法 SP Pe Pe OP pp 必 汪 页 硬 厦 : 语 后 沽 刘 最 庆 而 帅 十- 冲 二 


10.2.1 二 阶 Runge-Kutta 方法 
10.2.2 三 阶 Runge-Kutta 方法 
10.2.3 四 阶 Runge-Kutta 方法 
高 阶 Runge-Kutta 方法 


10. 3.1 Kutta-Nystrom 五 阶 六 级 方法 … 


日 录 人 


10.3.2 Huta 六 阶 八 级 方法 8 
10.4 Runge-Kutta-Fehlberg 方法 站 RPR 284 
10.6.1 四 阶 Adams 预测 -校正 方法 pp 293 
10. 6.2 改进 的 Adams 四 阶 预 测 -校正 方法 .PP 295 
10. 6.3 Hamming 预测 -校正 方法 … |, 
10.8 Grage 外 办法 ~ 和 -oo 305 


第 11 章 常 微 分 方程 边 值 问题 的 数值 解法 - 和 
11.1.1 线性 边 值 问题 的 打靶 法 RN 317 
11.1.2 下 生性 光 信 问题 的 条 想法 PE PRO RO 
TT 
I 


12.2. 1 显 式 癌 前 Euler 方法 … | 
12. 2. 2 ” 隐 式 向 后 Euler 方法 … 和 
cr rd eno 
12. .4 二 扒 搜 物 弄 方程 reorder tnss 344 
12.3 双 曲 型 方程 pp 348 
12.3.2 一 维 波 动 方程 wossseeeeseesseeageoeeeseeseaeeweeoeeeeaweeseewaseeoeeewesaeor 352 


5| 人 论 


由 上 小 


1.1 误差 的 来 源 


在 解决 工程 和 科学 问题 时 ,会 由 不 同 的 原因 产生 误差 。 首 先 ,误差 可 能 来 自 数学 模型 ， 
一 般 情 况 下 ,数学 模型 无 法 确切 地 表达 实际 问题 ,这 种 由 数学 模型 与 实际 问题 之 间 产 生 的 误 
差 称 为 模型 误差 。 其 次 ,数学 模型 中 常 包 含 一 些 通过 观察 所 得 到 的 数据 ,由 观测 值 而 产生 的 
误差 称 为 观测 误差 。 由 于 这 两 种 误差 不 是 科学 计算 过 程 能 够 避免 的 ,因此 ,在 科学 计算 中 ， 
我 们 重点 关注 如 下 两 种 误差 : 舍 人 误差 和 截断 误差 。 

1.1.1 舍 入 误差 


由 于 计算 机 硬件 只 支持 有 限 位 机 融 数 的 运算 ,因此 有 时 不 能 确切 地 表示 实数 的 真实 值 ， 
这 种 误差 称 为 省 入 误差 。 


例 1.1 考察 积分 T(n) 一 | -dr 利用 MATLAB, 求 n= 二 30 的 积分 值 。 


解 ” 在 计算 之 前 , 先 估计 一 下 积分 值 : o<| dz<| x"dx = 1 在 MATLAB 
0 区 十 9 0 1 十】 
命令 窗口 输入 : 


> > fun= 'x^30/ (x+ 9) '; 


>>T30= int (fun, 0,1) 
则 屏幕 显示 结果 : 


T30 = 42391158275216203514294433201 x* ln (2) 
+ 42391158275216203514294433201 x* 1n (5) 
— 84782316550432407028588866402 x* ln (3) 
—165119669408554817093356157849312132531/36969675600 C11) 


利用 vpa 因数 ,用 16 位 精度 进行 计算 则 其 浮 点 值 为 


1 nn 
-这 = 本 一 一 9 二 14 
| dz vpa(T30,16) CO JW。 


这 显然 是 个 错误 的 结果 ,下 面 分 析 产生 错误 的 原因 。 注 意 到 
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: 1 zz 9x™! 一 | 下 ee -| | | 10 
T(n)+9T(nO— 1) =| a dx = ,2 位 下 三 T(t0)== , Zodr = ln 9 。 
求解 此 递 推 关 系 , 则 有 
TCD = (ln(2) 十 In(5) 一 2In(3))( 一 9)" 十 > 一 2 一 。 (1.2) 
一 1 0 


如 果 我 们 直接 用 递 推 方法 求 了 (30) , 则 得 到 如 下 结果 。 


>>T0= log (10/9); 
for n=1:30 
TO=vpa(- 9* TO+1/n); 
end 
T30= 了 TO0 
T30= 2034160460084.18287 


是 什么 原因 导致 的 错误 呢 ? 也 许 你 已 经 猪 到 ,是 舍 入 误差 。 在 运算 时 用 到 的 初 值 是 
In(10/9) (在 MATLAB 输出 中 它 被 写成 了 : ln(2) 十 ln(5) 一 2ln(3)) ,此 数 在 计算 机 中 无 法 
精确 表达 ,如 果 用 32 位 的 精度 , 则 计算 机 表示 数 In(10/9) 的 舍 人 误差 大 约 是 2 ”。 当 我 们 
对 (1.1) 式 、(1.2) 式 进行 计算 时 ,误差 将 变 为 

>>err=2^(- 32) 关 9^30 

err= 9.869960666451651e+ 018 


利用 vpa 函数 ,大 用 50 位 精度 进行 计算 则 其 浮 点 值 为 


1 需 
| dz = vpa(T30,50) = 0.0032359487369 。 
st 直上 9 


1.1.2 截断 误差 


用 一 个 基本 的 表达 式 蔡 换 一 个 比较 复杂 的 表达 式 时 所 产生 的 误差 , 称 为 截断 误差 。 这 
一 术语 是 从 用 截断 泰勒 级 数 蔡 换 一 个 复杂 表达 式 的 技术 中 衍生 的 。 


例 1.2 对 无 穷 泰勒 级 数 二 1 十 x 十 和 十 于 十 … 十 本 十 …… ,用 有 限 项 近似 表达 e 时 的 


nl 
图 像 比 较 。 
解 ” 建 立 如 下 脚本 文件 。 


fplot ("exp(x)}"',[-55 -320 ],"'b:+"); 

hold on 

DOT 二 HE 2/2 [= DS=320 1 Ti "ss 
LO 
fplot("1li+xtxs 2A2TEX 3/6tx.° 4/24tx. 5/120" .1-55-320]1;'g:0); 
ee 三 人 

hold off 


存 为 ex1 2.m。 在 MATLAB 命令 窗口 调用 ex1 2, 则 得 到 下 面 的 结果 (图 像 为 图 1. 1)，。 
用 部 分 和 Sw 一 > 三 近似 代替 无 限 和 ex 一 > ) 地, 所 产生 的 理论 误差 为 Ex 一 > 于 


, 1° 
n=N+17 。 


1.1 e 及 其 近似 表达 式 的 图 形 


当 工 接近 于 0 时 ,级 数 收敛 速度 较 快 ,此 时 舍 入 误差 的 实质 部 分 包含 在 舍 人 部 分 的 第 一 项 中 。 
这 样 就 可 一 直 求 和 ,直到 第 N 项 满足 


| termn | 


| Sn | 
为 止 , 其 中 是 我 们 要 求 的 相对 误差 。 例 如 ,计算 。 


we 或 | termw | 二 | Sw | 


>> vpa (exp (7) ,15) 
ans= 1096.63315842846。 


如 果 要 求 相 对 误差 为 10 , 则 e 的 近似 值 和 所 要 计算 的 项 数 分 别 为 sum 王 1096. 633158 和 
= 


>>term=1; 

SUMm= term; 

k= 1; 

while term/sum>=10~^~ (- 9) 
term= term* 7/k; 
SUM= sumt term; 
k= kt+1; 

end 

sum 


k 
在 MATLAB 命令 窗口 执行 上 述 代码 , 则 有 
sum= 1 .09663315831898let+ 003 
k= 30 
当 我 们 计算 到 第 30 项 时 ,截断 误差 为 > 世 ， 约 为 2.45X10-，, 上 述 级 数 的 第 一 项 为 


nn 二 31 . 
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约 为 1.92X10-* ,是 截断 误差 2.45X10 飞 的 实质 部 分 。 
12 误差 的 传播 


在 进行 计算 时 ,如 果 参 与 运算 的 量 有 误差 , 则 计算 结果 也 会 有 误差 。 参 与 运算 的 量 的 误 
差 可 以 通过 一 系列 的 运算 进行 传播 ,如 四 则 运算 、 困 数 运算 等 。 

尽管 在 某 种 程度 上 我 们 无 法 避免 误差 的 影响 ,但 是 要 对 计算 误差 负责 的 是 我 们 日 己 ,而 
不 是 计算 机 。 当 我 们 的 计算 机 对 无 意 的 谎言 坚持 目 己 是 清 日 的 时 候 , 我 们 编程 者 和 使 用 者 
必须 对 所 用 算法 而 产生 的 误差 负责 ,而 且 还 要 为 日 己 的 粗心 付出 被 机 带 欺 骗 的 代价 。 因 此 ， 
我 们 应 尽力 减少 误差 量 并 使 误差 量 对 最 终结 果 的 影响 最 小 化 ,下 面 是 避免 误差 增 大 的 几 条 
原则 。 


1.21 尽量 避免 两 个 相近 的 数 相 减 


如 果 对 两 个 相近 的 数 进行 减法 运算 ,将 造成 有 效 数字 的 严重 损失 ,相对 误差 迅速 增加 。 
设 三 (zl 9 人 2 9 ;XX ) 是 n 元 轴 数 , 则 * 最 大 可 能 的 误差 为 


9 
让 SLan 
2 


9 9 
| Af | 过 SLan i 让 ar C13 


az | 
Ay| = 1Azl+ 


gx 
2Az |+ 


例 1.3 若 z 二 f(x,y) 二 x 一 y, 则 由 (1.3) 式 得 |Az|= 


|Ay| ,所 以 Az 的 相对 误差 为 


Az| _ | Az | 十 | Ay | 
之 Iz—y| 
Az| |10.001| 十 10. 001| 
Gs = | 二 | 一 一 一 一 一 人 入: 
如 果 xX 二 3 土 0. 001,y 二 3. 003 土 0. 001, 则 < [3 二 3 1003 0. 6667 。 
例 1.4 设 f(zx)==x(Vzr 十 1 一 Vx),g(Xx)= 二 一 一 一 一 一 ,用 15 位 精度 计算 f(5000)， 
VX 十 1 十 NZ 
g(5000) 。 
解 


>>f=inline('x* (sqrt (xt1)— sqrt (x)}) sx); 
>>g=inline('x/(sqgrt (x+1)+ sqrt (x))', 'x'); 
>>vpal(f (5000),15) 

ans= 35.3535714690878 

>>vpa(g (3000),15) 

ans= 35.35357]14691290 


理论 上 讲 , f(x) 二 g(x), 由 于 两 个 相近 的 数 V5001 和 v5000 相 减 导 致 (5000) 的 精度 损失 。 
本 人 


T 


(1) 画 出 f(x) 在 一 5x 二 x 三 5x 上 的 图 像 。 


(2) 验证 limf (zx) = 二 。 
a 


(w=. 

(a) 用 30 位 精度 , 求 f(z) 在 ze 处 的 值 ; 
(b) 用 10 位 精度 , 求 f(x) 在 ze 处 的 值 。 
解 (1) 


>>ff=inline(' (1- cos (x)) /x’2"'); 


>> fplot (ff, [- 5x* pi,5x pi]) 


图 像 为 图 1. 2。 


一 15 —10 一 5 0 5 10 15 


1.2 f(x) 在 [一 5x,5x] 上 的 图 像 


(2) 将 f(z) 定义 为 符号 阴 数 。 


function y=exal 5 (x) 


Syms x 
y= (1- cos (x) ) /x’2; 


存 为 exal 5.m。 


>>1imit (exal 5270) 
ans= 1/2 


(3) (a) 


>>x0=vpa (11/1000000, 10)，; 
>> (1- vpa (cos (x0) ,30) ) /x0^2 s 用 30 位 精度 计算 cos (x0) 
ans= 0.49999999999496 


(b) 


>> (1- vpa (cos (x0) ,10) ) /x0^2 s 用 10 位 精度 计算 cos (x0) 
ans= 0.826446280992 


当 接近 于 0 时 ,1 一 cos(z) 之 地 ,由 于 两 个 近似 相等 的 数 1 和 cos(x) 相 减 , 导 致 误差 增 大 。 
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1.22 防止 接近 零 的 数 做 除数 
分 母 接近 零 的 数 会 产生 大 的 误差 或 溢出 en 再 计算 。 
例 1.6 当 xz 人 Sl 时 ,计算 f(z)== 一 一 一 一 一 ,可 改 为 g(x)= 二 58( Vz 十 1 十 Vz) 进行 
/CD 一 -PT 了 
计算 。 理 论 上 ,f(zx)==g(x)。 
解 ” 取 > 一 10? ,105 ,建立 脚本 文件 计算 f(x) ,g(x), 得 到 如 下 结果 。 


fx= inline('58/ (sqrt (x+ 1)- sqrt (x)) '); 
gx= inline('58* (sqrt (x+1)+ sqrt (x))'); 
xl= 10^9; 

fxl= fx (x1) 

gxl1= gx (x1) 

x2= 10^16; 

fx2= fx (x2) 

gx2= gx (x2) 


存 为 exl 6.m。 调 用 exl 6, 有 


>>exl 6 
fxl= 3.668241513567938et+ 006 
gxl1= 3.668242086712380et+ 006 
fx2= Inf 
gx2= 1.160000000000000et+ 010 


1.23 防止 大 数 吃 小 数 


当 两 个 绝对 值 相差 很 大 的 数 进行 加 法 或 减法 运算 时 ,绝对 值 小 的 数 有 可 能 被 绝对 值 大 
的 数 “ 吃 掉 ”, 从 而 引起 错误 的 结果 。 
例 1.7 用 5 位 浮 点 数 ,计算 
S 一 12345 十 0.3 十 0.3 十 0.4。 (1.4) 
解 S 王 0.12345X105 十 0.000003X105 十 0.000003X105 十 0.000004X105 一 12345。 
在 (1.4) 式 中 ,重新 排序 计算 得 
S = 0.000003 X 105 十 0.000003 X10 十 0.000004 X10 十 0.12345 X 105 一 12346。 


1.24 得 化 计算 步骤 ,减少 运算 次 数 


简化 计算 步骤 是 提高 程序 执行 速度 的 关键 , 它 不 仅 可 以 节省 时 间 , 还 能 减少 舍 入 误差 。 
例如 ,计算 nn 次 多 项 式 p,(7z) 王 ar" 十 a,_-17X” 十 … 十 az 十 ao 的 值 时 ,如 果 先 求 a.x* 再 求 
和 ,需要 n(n 十 1)/2 次 乘法 ,n 次 加 法 。 如 果 按 下 式 计 算 
四 人 三 ee 十 二 
则 只 需要 n 次 乘法 ,n 次 加 法 ,这 就 是 计算 多 项 式 著 名 的 秦 九 韶 算 法 。 
例 1.8 用 上 述 两 种 方法 计算 多 项 式 mn， (z) 王 az 1 十 aiz :十 … 十 az 十 ai, 其 中 
7 一 105 ,al az，…a,j 一 L[1,2,…，,105 ,在 x 二 1.0012 时 的 值 。 


解 ”建立 如 下 的 脚本 文件 ,并存 为 exl_8. m。 


x0= 1 .00012; 

t=1; 

a= [1:10^6]; 

Ci s 开 始 计时 
pn=a(10^6); 

for k= {10°6-1):—1:1 


pn=pnx x0+a(k); s 按 秦 九 韶 算 法 计算 
end 
pn 
tsl= toc 计算 从 上 次 计时 到 现在 所 用 时 间 
Lm 


summ= a (1); 


for k=2:10^6 


七 一 七 关 x0; 

summ= a (k) 关 t+ summ; s 按 计算 ak* x’k 方式 计算 
end 
summ 
ts2= toc 


在 MATLAB 命令 窗口 执行 exl 8. m, 则 有 


>>exl 8 

pn= 1.0700et+ 062 
tsl=0.0159 

summ= 1 .0700et+ 062 
ts2= 0.026]1 


1.3 效 值 所 法 的 各 定性 


对 于 一 个 算法 ,如 果 初 始 数 据 的 较 小 误差 不 会 对 最 终结 果 产 生 较 大 的 影响 , 则 称 此 算法 
是 数值 稳定 的 ,否则 称 此 算法 为 不 稳定 的 。 衡 量 算法 好 坏 的 两 个 重要 指标 是 稳定 性 和 计算 
复杂 性 。 计 算 复 杂 性 包括 时 间 复 杂 性 和 空间 复杂 性 。 时 间 复 杂 性 即 计算 量 : 一 个 算法 所 需 
四 则 运算 总 次 数 , 在 实际 中 通常 以 乘 \ 除 法 的 次 数 作 为 算法 的 计算 量 ,单位 是 flop。 空 间 复 
林 性 即 存储 量 。 

例 1.9 设 A,B,C,D 分 别 是 10X20,20X50,50X1,1X100 的 矩阵 , 试 按 不 同 的 算法 
求 和 矩阵 乘积 EF 二 ABCD， 

解 ” 由 和 矩阵 乘法 的 结合 律 ,可 有 如 下 算法 : 

(1) E 二 ((AB)O)D, 计 算 量 N= 二 11500flop。 

(2) E 一 A(B(CD)), 计 算 量 N 王 125000flop。 

(3) E 二 (A(BO))D, 计 算 量 N= 二 2200flop。 


例 1.10 用 无 限 精度 算法 结合 如 下 2 个 方案 ,可 递归 生成 序列 fa) 一 { 芭 |】. . 
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(1) 
| 
To 一 1 ,zs 一 Te ni = 一 和 (1.5) 
(2) 
yo = 1,yi = yy nn 二 2,3,""。 (1.6) 


在 实际 计算 时 ,如 果 取 初 值 zo =yo—1,x1 = = 二 0. 33333, 分 别 用 上 述 两 种 递归 方式 求 
序列 {4a,} 的 近似 值 。 
解 首先 验证 递 推 关系 % 一 闻 y 1 一 y2wn 一 2,3,… 的 通 解 为 y, 一 a 二 十 cz3"。 由 于 


该 递 推 关系 的 特征 方程 为 x? 一 节 z 十 1 一 0, 它 的 两 个 根 为 x 一 二 ,zs 一 3, 故 其 通 解 为 yw 一 


a 训 十 c3"。 当 yo 一 1,y 一 地 时 , 求 得 ci 一 1,c2 一 0, 所 以 y, 一 训 , 故 (1.6) 式 生成 序列 {a,)，。 


当 y= 二 1,yi 二 0.33333( 取 5 位 精度 ) 时 ,利用 通 解 式 重新 求 得 c =1,c* 王 一 0.12500X10-5 ， 
记 此 时 的 递 推 公式 (2) 为 : yy 一 吝 一 0. 00000125X3"。 用 yy 近似 代 蔡 a, 的 售 人 误差 为 : 
ai 一 yy 一 0.12500X10“ 义 3", 它 随 指数 增长 ,因此 , 递 推 公式 (1. 6) 是 不 稳定 的 。 取 zo 二 1， 
X11 从 0.33333 时 , 记 此 时 的 递 推 公 式 (1) 为 : zz 三 0. 33333Xzzo~i, 用 zz 近似 代替 a, 的 舍 
入 误差 为 ; an 一 zx, 一 高 一 (0 333933)75(00. 33333 T0393393X10 "40. 33993) "P07 
(0.33333)"X10”, 它 是 指数 级 减 小 的 ,因此 , 弟 推 公式 (1.5) 是 稳定 的 。 
建立 如 下 的 脚本 文件 ,并 存 为 exl_10. m。 
digits (5) 
a(l)=1; 
xx(l1)=1; 
yy (1)=1; 
for k=2:11 
a(k)=1/3^ (k-— 1); 
xx(k)=0.33333* xx (k— 1); 
yy (k)=1/3^(k-1)-0.12500 关 10^(-5) ¥* 3^(k-—1); 
end 
for k=1:11 
xxero(k)=abs (a (k)— xx (k) ); 
xxreler (k)= xxero (k) /a (k); 
yyero(k)=abs (a(k)-— yy (k)); 
yyreler (k)= yyero (k) /a (k); 
end 
fprintf(' 表 1.1 各 序列 的 近似 值 , 绝 对 误差 和 相对 误差 \n') 
fprintf(' 序 号 an 的 值 ”xxn 的 值 ”yyn 的 值 ”xxn 的 绝对 误差 yyn 的 绝对 误差 xzn 的 相对 误 
差 yyn 的 相对 误差 \n') 
for k=1:11 


fprintf('%3d $10f 区 10 和 Sl0f S12f $l15f %$15f %l6f\n',k-—1,a(k),xx(k),yy (k),xxero (k),yyero 
(k), xxreler (k),yyreler (k)) 


end 


在 MATLAB 命令 窗口 执行 exl1_10. m, 即 得 各 序列 前 11 项 的 近似 值 ,绝对 误差 .相对 误差 
和 表 1. 1。 


>>exl 10 


表 1.1 各 序列 的 近似 值 、 绝 对 误差 和 相对 误差 


序号 yy 的 相对 
误差 
0 .000000 | 1. 000000 .000000 | 0.000000 0. 000000 0. 000000 0. 000000 
1 ,3333 | 0 333330 “S03330 0. 000003 0. 000004 0. 000010 0. 000011 
2 .111111 | 0. 111109 .111100 | 0.000002 0. 000011 0. 000020 0. 000101 
3 .037037 | 0. 037036 .037003 | ”0. 000001 0. 000034 0. 000030 0. 000911 
4 .012346 | 0. 012345 .012244 | 0.000000 0. 000101 0. 000040 0. 008201 
5 .004115 | 0. 004115 .003811 | ”0. 000000 0. 000304 0. 000050 0. 073811 
6 .001372 | 0. 001372 .000460 | ”0. 000000 0. 000911 0. 000060 0. 664301 
7 .000457 | 0.000457 OO2277 0. 000000 0. 002734 0. 000070 5.978711 
8 .000152 | 0. 000152 .008049 | ”0. 000000 0. 008201 0. 000080 53. 808401 
9 .000051 | 0. 000051 .024553 | ”0. 000000 0. 024604 0. 000090 484. 275611 
10 | 0.000017 | 0. 000017 .073794 | ”0. 000000 0. 073811 0. 000100 “| 4358. 480501 


在 数值 算法 的 程序 执行 中 ,执行 速度 主要 依赖 于 调用 困 数 ( 子 程序 ) 的 个 数 和 计算 量 。 
因此 ,算法 中 尽量 少 调用 男 数 ,减少 计算 量 。 


M 


例 1.11 计算 SCM) = en 在 1 一 160， M 王 230 时 的 值 。 


解 建立 如 下 的 脚本 文件 ,并 存 为 exl 11. m。 


lam= 160; K= 230; 
Ea 
p= exp (~ lam); 
S= 0;» 
for k=1:K 
p=p* lam/k; S=S+p; s 藤 套 结构 


LT 

for k=1:K 
p= Lam^k/factorial (k); s 调 用 阶乘 郴 数 
Sl= Sl1+p; 

end 


Sl1* exp(— lam) 
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ee 
在 MATLAB 命令 窗口 执行 exl 11.m, 有 如 下 结果 。 


>>eXl 11 

S=1.0000 

Elapsed time is 0.000270 seconds 
ans= NaN 

Elapsed time is 0.059042 seconds 


注意 到 SCM) 是 泊 松 (Poisson) 概 率 分 布 痕 数 , 所 以 它 随 M 的 增 大 而 接近 于 1。M 越 
大 ,两 种 算法 的 执行 时 间 的 差距 越 大 , 散 套 结构 的 优势 越 明 显 。 


线性 方程 组 的 解法 


pe 


在 科学 和 工程 技术 领域 中 ,有 很 多 实际 问题 涉及 解 线 性 方程 组 。 在 计算 机 上 求解 线性 
方程 组 常用 的 方法 有 两 类 : 一 类 是 直接 法 ,为 一 类 是 迭代 法 。 直 接 法 是 指 在 没有 舍 和 人 误差 
的 条 件 下 ,经 过 有 限 次 四 则 运算 而 求 得 方程 组 的 精确 解 的 方法 。 例 如 ,Gauss 消 元 法 、LU 
分 解法 .追赶 法 都 属于 直接 法 。 在 计算 机 上 计算 ,不 可 能 保证 每 一 步 的 运算 都 是 精确 的 , 求 
得 的 一 般 是 方程 组 的 近似 解 , 因 此 需要 进行 误差 分 析 。 和 迭代 法 的 基本 思想 是 按照 某 种 规则 
生成 向 量 序列 {x }, 如 果 此 序列 收敛 , 则 当 充分 大 时 ,可 取 x” 作 为 线性 方程 组 的 近 
似 解 。 


21 ”Gauss 消 顺 序 消 去 法 


1. 功能 

将 矩阵 4 化 为 上 三 角 和 矩阵 ,然后 回 代 求解 线性 方程 组 Ax 王 b。 

2. 计算 方法 

(1) 记 和 矩阵 和 A= 二 (a )(i 一 1,2, ,727 一 1,2, ,n) ,b= 二 (6 ,bY ,oo ,be )T。 

(2) 第 一 1 步 后 的 矩阵 记 为 : (oa 风 )。 第 & 步 的 计算 为 : 在 a ,a 号 1，… ,a 中 寻找 第 
一 个 非 零 元 素 a , 硅 k 关 7, 则 将 第 & 行 与 第 j 行 互 换 , 耕 找 不 到 非 零 元 素 , 则 退出 。axw 


0, 记 各 一 % ,第 行 乘 以 一 名， 加 到 第 ; 行 (i 一 & 十 1,…,z)。 第 大 步 后 的 矩阵 的 元 素 记 


y We ,也 的 元 素 记 为 Be 

(3) asy"， 的 计算 2 \ 式 为 ， as1d =a 人 1 。 (a I 
k 行 元 素 相同 。 Be 的 计算 名 N\ 式 为 ， Der 一 0 一 一 [和 0 和 ,7 二 有 十 1 ,No bt 与 pbp'*’ 的 前 
& 个 元 素 相 同 。 


(a BH a (各 一 > aPzi] /ai 人 
k= 计 ] 
3. 使 用 说 明 


Gausseli (A,b) 
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第 一 个 参数 A 为 矩阵 ,第 二 个 参数 b 为 线性 方程 组 的 常数 和 向量。 返回 线性 方程 组 
的 解 。 
4. MATLAB 程序 


function y=Gausseli (A,b) 
[m,n]= size (A); 
if m~=n 
disp(' 输 入 错误 ,系数 和 矩 证 阵 只 能 是 方 阵 ') 
end 
if n~= length (b) 
disp('" 输 入 错误 ,常数 项 的 个 数 应 与 方程 的 个 数 相 同 ') 
end 
for k=1:n—1 
for i=k+l1:n 
A(i,k)=A(i,k)/A(k,k); 
b(i)=b(i)-Al(i,k) * b(k); 
for j=k+1:n 
if A(k,k)==0 
disp(' 主 元 素 为 零 , 消 去 法 无 法 继续 '); 
break; 
else 
A(i,Jj)=A(i,J)-A(i,k) * A(k,J); 
end 
end 
end 
end 
b(n)=b(n) /A(n,n); 
for i= (n—1):—1:1 
Ww= 0; 
for j= (i+1):n 
w=wt+A(i,j) * b(j); 
end 
b(i)= (b(i)-w)/A(i,i); 
end 


yb; 
6z 十 2y 十 2z 一 一 2， 
例 2.1 求解 线性 方程 组 2z 十 二 ?十 去 一 1， 


Z 十 2y 一 z 一 0。 
6 2 2 a 
解 建立 系数 矩阵 A 和 常数 向 量 b,A4 一 |2 二 ”地 |,b 一 | 1|, 然 后 代入 程序 
0 
1 2 一 


Gausseli 求解 。 


第 2 草 线性 方程 组 的 解法 


>>xl=Gausseli (ab) 
xl=4/3 -19/9 -26/9 


0. 002zl 十 8. 125z? 一 一 8. 123， 
5. 25zl 十 0.75zz 一 4.5。 

解 ” 易 知 方程 组 的 解 为 zi 王 1,z* 三 一 1。 假 设 用 5 位 精度 的 浮 点 数 ( 断 位 ) 进 行 计算 ， 
直接 消 元 计算 得 方程 组 的 解 为 ,二 一 0. 99995,X1 二 0.75000。 

显然 zi 的 误差 较 大 ,为 何 出 现 这 样 的 错误 ? 是 主 元 0.002 导致 了 这 样 的 错误 ,由 于 它 
较 小 并 在 运算 中 作 了 除数 ,导致 误差 增 大 。 事 实 上 ,可 另 选 主 元 以 避免 这 样 的 问题 ,这 就 是 
下 面 讨 论 的 列 主 元 Gauss 消去 法 。 


例 2.2 求解 方程 组 | 


22 Gauss 列 主 元 消去 法 


1. 功能 
将 矩阵 A 化 为 上 三 角 和 矩阵 ,然后 回 代 求解 线性 方程 组 4Ax 一 D。 
2. 计算 方法 


(1) 记 和 矩阵 A= (a )(1=1,2,.… 97 二] ,2 ,°° ,nn) ,b= Co be se yD be 
(2) 第 kl 步 后 的 矩阵 记 为 : (ns 第 上 步 的 计算 为 : 在 a 峰 ” ,aid 中 寻找 绝 
对 值 最 大 的 一 个 非 零 元 素 a , 铝 R 夭 ) , 则 将 第 & 行 与 第 7) 行 互 换 , 知 找 不 到 非 去 元 素 , 则 退 


(k) 
出 。 选 取 主 元 入 天 0，, 记 多 一 7 竹 , 第 & 行 乘 以 一 各 ,加 到 第 ;i 行 (i 一 人 十 1,…，,z)。 第 & 步 
kk 


后 的 矩阵 记 为 : (ao 六 ”)。 

(3) a%t 的 计算 公式 为 : ast? 了 = 二 a 咏 一 1 人 Wa 四 ,i,j 二 十 1,…,n。(a4t+9) 与 (a ) 的 前 
k 行 元 素 相同 。b4*+? 的 计算 公式 为 : bh? 了 = 二 6 四 一 1 娩 b 多 ,i 二 十 1,…,n。b*+? 与 bp 的 前 
& 个 元 素 相 同 。 


(4) 回 代 :元 三 0 /a® ,zx; = (2 一 > agrij/ag di 一 7 一 1,72 一 2,…，])。 
pr 
3. 使 用 说 明 


Gausselimpiyv (A,b, ep) 


第 一 个 参数 A 为 矩阵 ,第 二 个 参数 b 为 线性 方程 组 的 和 常数 向 量 , 第 三 个 参数 ep 是 很 小 
的 数 , 当 所 选 的 主 元 的 绝对 值 比 ep 小 时 , 则 退出 ,方程 组 的 解 取 为 0, 可 以 不 输入 ep, 默 认 
ep 一 2. 22044605e 一 016。 返 回 线性 方程 组 的 解 。 

4. MATLAB 程序 


function z=Gausselimpiyv (A,b, ep) 
[mn]= size (A); 
if m~=n 
disp(' 输 入 错误 ,系数 矩 证 阵 只 能 是 方 阵 ') 
end 


If n~= length (b) 


13 


14” 常用 数值 算法 及 其 MATLAB 实 现 


disp(' 输 入 错误 ,常数 项 的 个 数 应 与 方程 的 个 数 相同 ') 
end 
if nargin==2 
ep= eps; 
end 
for k=1:n—1 
p=A(k,k); I=k; 
for i=k:n 
if abs (A(i,k))>abs (p) 
p=A(i,k); I=1; 
end 
end 
if p<=ep 
z= 0}; 
end 
if I~=k 
for Jj]=k:n 
w=A(k,j); A(K,j)=A(I,j); A(I,Jj)=w; 
end 
u=b(k); b(k)=b(I); bl(I)=u; 
end 
for i=k+l1:n 
A(i,k)=A(i,k) /A(k,k); 
b(i)=b(i)-Al(i,k) * b(k); 
for j=k+1:n 
A(i,j)=A(i,j)-A(i,k) * A(k,j); 
end 
end 
end 
b(n)=b(n)/A(n,n); 
for 1= (n—1):—1:1 
w= 0; 
for j= (i+1):n 
w=wtA(i,J) * b(j); 
end 
b(i)= (b(i)-w) /A(i,i); 
end 


z= b; 
4z 十 3y 十 2z 一 5， 

例 2.3 利用 Gauss 列 主 元 消去 法 求解 方程 组 ;一 3z 一 2.213y 十 一 1.738， 
3X 十 y 一 z 二 1。 

解 ” 建 立 如 下 脚本 文件 . 


fs [4, 3,2;— 3,— 2.213,1; 3 一 工 | > 
b= [5; 1.738; 1]; 


X3= Gausselimpiyv (a,b) 


存 为 ex2_3. m, 然 后 在 命令 窗口 调用 ex2 3, 则 得 计算 结果 。 


> ex 3 


XxX3= 1 .82860676009893 


23 Gauss jordan 消去 法 


1. 功能 
选取 列 主 元 的 Gauss-Jordan 消去 法 解 方程 组 Ax 一 ,返回 方程 组 的 解 。 
2。 计 算 方 法 


与 2. 2 节 类 似 , 对 和 矩阵 实施 初等 行 变 换 ，。 


3. 使 用 说 明 


GaussyJor (A, b) 


第 一 个 参数 A 为 矩阵 ,第 二 个 参数 b 为 线性 方程 组 的 常数 向 量 。 返 回 线 性 方程 组 


的 解 。 


4. MATLAB 程序 


function z=Gauss]jor (A,b) 


[m,n|]= size (A); 


if m~=n 


end 


pA 


第 2 草 线性 方程 组 的 解法 


2.22860676009893 


disp(' 输 入 错误 ,系数 和 矩 证 阵 只 能 是 方 阵 ') 


if n~= length (b) 
disp(' 输 入 错误 ,常数 项 的 个 数 应 与 方程 的 个 数 相同 ') 


end 


for k=1:n 


p=A(k,k); I=k; 


for i=k:n 


if abs (A(i,k))>abs (p) 


p=Al(i,k); I=i; 
end 
end 
if I~=k 
for j=k:n 
w=A(k,j); 
A(k,J)=A(I,J); 
A(I,J)=w; 
end 
u=b(k); 
bl(k)=b(I); b(I)=u; 
end 


if A(k,k)~=1 


交换 第 k 行 与 第 工行 


15 


16 


常用 数值 算法 及 其 MATLAB 实 现 


b(k)=b(k) /A(k, k); 
A(k,k:n)=A(k, kK:n) /A(k, k):; 
A(k,k)=1; 
end 
for i=1:n 
if i~=k 
multi=A(i,k); 
b(i)=b(i)-multi x* b(k); 


for j=k:n 
A(i,J)=A(i,J)-multix* A(k,J); 
end 
end 
end 
end 
A 
z= b; 
0 1 
例 2.4 求解 线性 方程 组 Ax==b, 其 中 A=| 一 1 一 1 
2 0 


$s 第 k 行 同 除 A(k,k) 


9 


9 


解 ” 建 立 系 数 矩 阵 和 常数 向 量 , 代 入 程序 计算 即 得 结果 。 


>>a= [0,1,5;-—1,-1,2;—2,0,5]; 
>>b= [15; 2; 16]; 


>>Gaussjor (a,b) 


运行 后 屏幕 显示 结果 为 


a=1 0 0 
0 1 0 
0 0 1 


2 一 3 
例 2.5 求解 线性 方程 组 Ax 二 b, 其 中 ‘| 10 
3 一 100 


100 
一 0. 001 
0.01 


解 ” 建 立 系数 答 阵 和 常数 向 量 ,代入 程序 计算 即 得 结果 。 


e120 31007 LO OO 3 —=190070011s 
>>5= [1 Us Os 


>>x=Gaussjor (a,b) 


运行 后 屏幕 显示 结果 为 


a= 0 0 
0 ll 0 
0 0 Ll 


| 
| 1 


] 
0 
0 


| 
| 


第 2 草 线性 方程 组 的 解法 


0.00000100000300 
0.01000003000009 


检验 知 ,z 是 原 方 程 组 的 解 。 


>>ax*x 

ans=1.00000000000000 
0.00000000000000 
-0.00000000000000 


24 LU 分 解法 


1. 功能 

将 非 退化 矩阵 4 分 解 成 单位 下 三 角 和 矩阵 L 与 上 三 角 和 矩阵 U 的 乘积 。 即 PA 二 LU, 其 中 
P 是 置换 和 矩阵。 如 果 输 入 第 二 个 参数 列 向 量 b, 则 用 LU 分 解法 求 方程 组 Ax 二 b 的 解 。 

2. 计算 方法 

(1) 采用 与 Gauss 列 主 元 消去 法 类 似 的 做 法 ,在 进行 分 解 时 , 先 选 列 主 元 ,再 进行 分 解 
计算 , 即 选 主 元 的 Doolittle 分 解法 。 


] Ul U2 Ul3 Uiln 
L21 ] U22 U23 ”U2n 
(2) 作 A 的 LL 分 解 : PA=LU= lal [32 ] UW33 ta Un |o 


Cl 


记 和 矩 阵 和 A= 二 (aj )(i,j 二 1,2,…,n)。 第 上 有 步 分 解 时 ,A,L,U 的 元 素 计 算 如 下 : 
GD 在 aw ?CA 二 IC 从 中 寻找 绝对 值 最 大 的 di , 右 j 关 kk, 则 将 第 k 行 与 第 7 行 互 换 , 知 


找 不 到 非 零 元 素 , 则 退出 。 记 录 下 交换 的 两 行 。 os 天 0, 记 ax 一 过 ,第 人 行 乘 以 一 ax ,加 到 第 


z 行 (&R 王 1,…)72 一 1) ,ay 一 az 一 zxQ1 ij =k 十 1,*…,n。 

四 开 的 元 素 上 多 取 4 的 主 对 角 线 以 下 的 相应 元 素 a; ,U 的 元 素 xwr 取 A4 的 主 对 角 线 以 上 
( 含 对 角 线 ) 的 相应 元 素 a; 。 

(3) 如 果 输 入 第 二 个 参数 列 回 量 b, 则 用 LU 分 解法 求 方程 组 Ax 王 b 的 解 , 先 求 LY= 
PB ,然后 求 Ux 二 Y ,并 按 顺 序 返 回 L,U,P 和 解 x。 

3. 使 用 说 明 

LUDecomp (A) 

LUDecomp (A, b) 

第 一 个 参数 为 要 分 解 的 矩阵 A ,执行 程序 后 , 按 顺 序 返 回 三 个 矩阵 L,U,P 使 得 PA 一 
LU。 如 果 输 入 第 二 个 参数 列 向 量 b, 则 用 LU 分 解法 求 方 程 组 Ax 二 b 的 解 ,并 按 顺序 返回 
L,U,P 和 解 x。 

4. MATLAB 程序 


function [L,U,P,X|]= LUDecomp (A,b) 


18。 常用 数值 算法 及 其 MATLAB 实 现 


[N,N]= size (A); 
X= Zeros (N, 1); 
Y= zeros (N, 1); 
C= zeros (1,N); 
R= 1:N; 
D= ones (N, 1); 
for i=1:N—1 
[maxl1,j]=max (abs (A(i:N,i))); s 在 第 i 列 选 主 元 
C=Al(i, :); 
A(i,:)=A(j+i-1,:); 交换 两 行 
A(jJ+i-1,:)=C; 
d=R(i); 
R(i)=R(j+i-1); 
R(j+i-1)=d; 
if A(i,i)== 
是 退化 矩阵 ,不 存在 0 分解， 
break 
end 
for k=i+1:N 
mlt=A(k,i)/A(i,i); 
A(k,i)=mult; 
A(k,i+1:N)=A(k,i+1:N)—-multx* A(i,i+1:N); 
end 
end 
I=tril (A,— 1); 
U=triu (A); 
I=L+diag (D); 
P= eye (N,N); 
for j=1:N—1 
P([J RO)],:)=P([R(OO)I],:); 
end 
Ss 求解 LY= Pb 
if nargin== 
Y(1)=b(R(1)); 
for k=2:N 
Y(k)=b(R(k))-—-A(k,l1:k—1) *Y(1:k- 1); 
end 
Ss 求解 UX=Y 
X(N)=Y(N) /A(N,N); 
for k=N-—-1:—1:1 
X(k)= (Y(k)—-A(k,K+1:N) * x(kt+ 1:N))/A(k, kK); 
end 
else 
X= []】; 


end 


第 2 章 线性 方程 组 的 解法 ”<19 


1 2 6 
例 2.6 | 4 8 | 
一 2 3 5 


解 ”建立 和 矩阵 4, 用 程序 LUDecomp 将 A 分解。 


>>AB= [1,2,6; 4,8,-—1;-2,3,5]; 
>> [L,U,P]= LUDecomp (A) 


运行 后 屏幕 显示 结果 为 


I=1.0000 0 0 
-0.5000 1.0000 0 
0.2500 0 1 .0000 

U= 4.0000 8.0000 -1.0000 


0 7.0000 4.5000 
0 0 6.2500 
P=0 1 0 
0 0 1 
1 0 0 
9. 4087 一 5.2720 一 11. 9160 0. 3570 
例 2.7 设 A=| 一 11.2053 12.5373 一 6.3323 | ,》 一 | 1 ,求解 方程 Ax 二 b。 
| 6.7898 一 2.0758 | 1 60 | 


解 ” 输 入 矩阵 A 和 向 量 b ,调用 程序 LUDecomp。 


>>A= [9.4087,-5.2720,--11.9160;- 11.2053,12.5373,-6.3323; 6.1898, 一 2-0758， 
Demi2ls 

b= [0.3570,1,1.560] " ; 

[L,U,P,X]= LUDecomp (A,b) 


运行 后 屏幕 显示 结果 为 (L,U,P 了 略 ) 


X= 0.30798391195918 
0.371820337936065 
0.04589124005212 


经 检验 有 AX 二 b。 


25 平方 根 法 


1. 功能 

将 正定 对 称 和 矩阵 A 分 解 成 下 三 角 和 矩阵 王 与 L 的 转 置 的 乘积 , 即 A 一 LL"T(Cholesky 分 
解 )。 如 果 输 入 第 二 个 参数 b, 则 求解 Ax= 二 b, 并 返回 LL 和解 x。 

2. 计算 方法 

(1) 设 A=(a,)=LL"， 


20” 常用 数值 算法 及 其 MATLAB 实 现 


‘a Ln2 Ln3 ed ee ba | 


(2) 工 的 元 素 计 算 如 下 : 
© l= Van; 


Uj; 
@ 太一 7 一 2 
11 


j 一 1 1 jd 

OD, I (0 一 这 芒 ) ,4 一 (40 — lala ) fs, j 三 2 N91 = 3, ,No 
k=1 k=1 

(3) 回 代 求解 方程 。 

3. 使 用 说 明 


LLtdecomp (A) 
LLtdecomp (A, b) 


第 一 个 参数 为 要 分 解 的 和 矩阵 4 ,执行 程序 后 ,返回 矩阵 LL 使 得 A 一 LL'。 如 果 输 入 第 二 
个 参数 向 量 ( 或 矩阵 )b, 执 行程 序 后 , 则 按 顺 序 返 回 和 矩阵 LL 和 方程 组 Ax 二 b 的 解 x。 
4. MATLAB 程序 


function [L,X]=LLtdecomp (A,b) 
[m,n]= size (A); 
if m~=n 
display(' 只 能 输入 方 阵 ') 
end 
if A~=A" 
display(' 此 分 解 只 适用 于 对 称 和 矩阵 ') 
end 
I= eye (m); 
D= zeros (m) ， 
X= Zeros (m, 1) 
Y= X; 
if A(l,1)>0 
L(1,1)= sqrt (A(1,1)); 
else 
disp(' 和 矩阵 A 不 是 正定 矩阵 ,无 法 进行 cholesky 分解 ') 
end 
for i=2:m 
L(i,1)=A(i,1)/L(1,1); 
end 
for j=2:m 
s=A(J,J)- sum(L,1:I-1).* LL(,1:—1)); 
if sx0 


L(J,j)= sgqrt (s); 


第 2 章 线性 方程 组 的 解法 ”后 1 


else 
disp('" 和 矩阵 A 不 是 正定 矩阵 ,无 法 进行 cholesky 分 解 ") 
end 
for i=]j+1:m 
L(i,j)= (A(i,j)- sum(L(j,1:j-1).*L(i,1:j-1)))/L(,j); 
end 
end 
$s 求解 LY=b 
if nargin== 
Y(1)=b(1)/L(1,1); 
for i=2:m 
Y(i)= (b(i})- sum(L(i,1:i—1).* YY(1:i-1)"))/L(i,i); 
end 
s 求 解 L'X=Y 
X(m)=Y(m)/L(m,m); 
for 1=m- 1:=1:1 


X(i)= (Y(i)— sum(L(i+1:m,i).¥*xX(i+1:m)))/L(i,i); 


end 
else 
X= 113 
end 
4 一 |] 1 
| 17 1 
例 2.8 设 A= 4 4 1, 求 A 的 Cholesky 分 解 。 
Ll 9 
| 4 2 


解 ”建立 矩阵 4, 代 入 程序 LLtdecomp 即 得 。 


>>A= [4,-—-1,1;-—1,17/4,11/4;1,11/4,9/2]; 
I= LLtdecomp (A) 


运行 后 屏幕 显示 结果 为 


I= 
2.00000000000000 0 0 
-0.50000000000000 2.00000000000000 0 
0.50000000000000 1.50000000000000 1.41421356237310 


[5 7 6 5] 19 
7 10 8 7 28 

例 2.9 求解 方程 hx 一 0 ,其 中 人 4 一 ,一 。 
6 8 10 9 33 
5 7 9 10 


解 ”建立 矩阵 4 和 向 量 b, 代 入 程序 LLtdecomp 即 得 。 


>>A= I Os .10 8 1s B81009s RE 
[9 26030311"s 


22》 ”常用 数值 算法 及 其 MATLAB 实 现 


[L,x]= LLtdecomp (A, b) 


运行 后 屏幕 显示 结果 为 


I=2.23606797749979 0 0 0 
3.13049516849971 0.44721359549996 0 0 
2.68328157299975 一 0.89442719099992 1.41421356237309 0 
2.23606797749979 0 2.12132034355965 0.70710678118654 


X= 1.0et+ 002 * 
—-1.07000000000003 
0.65000000000002 
0.29000000000001 
-0.15000000000001 


26 改进 的 平 万 根 法 


1. 功能 

将 满足 某 些 条 件 ( 如 各 阶 顺 序 主子 式 不 为 0) 的 对 称 和 矩阵 或 正定 对 称 和 矩阵 4 分 解 成 单位 
下 三 角 和 矩阵 L ,对 角 和 矩阵 D 和 工 的 转 置 的 乘积 , 即 A 二 LDL ,(Cholesky 分 解 )。 如 果 输 入 
第 二 个 参数 b, 则 求解 Ax 二 b, 并 返回 LL,D 和 解 x。 

2. 方法 

(1) 设 A=(a;)==LDL"， 


1 di 1 lo la hn 
L21 1 al l ba "a 


A -= 工 DEF 四 Lal [32 1 ds 1 hs L 3 o 
[nl Ln2 Ln3 A 1 | ] 
(2) 工 ,D 的 元 素 计算 如 下 : 
OY di 一 Cil; 


© li =an/di »j 二 2 ,°° ,nN; 


7 一 1 
(3) dj; = aj — Zu Badass 
类 三 1 


jl 
Li; 一 (ww 人 BAA (3 = De By 
太一 1 


(3) 回 代 求解 (三 角 ) 方 程 。 
3. 使 用 说 明 


LDLtdecomp (A) 

LDLtdecomp (A, b) 

第 一 个 参数 为 要 分 解 的 矩阵 4 ,执行 程序 后 ,返回 矩阵 王 和 了 使 得 4=LDLI。 如 果 输 
和 第 二 个 参数 向 量 ( 或 矩阵 )2 ,执行 程序 后 , 则 按 顺 序 返 回 矩 阵 荆 ,D 和 方程 组 4Ax 王 的 
解 x。 


第 2 章 
4. MATLAB 程序 


function [L,D,X|]=LDLtdecomp (A,b) 
[m,n|]= size (A); 
if m~=n 
display(' 只 能 输入 方 阵 ') 
end 
if A~=A"' 
display(' 此 分 解 只 适用 于 对 称 和 矩阵 ') 
end 
I= eye (m); 
X= zeros (m, 1); 
Y= X; 
D= zeros (nn); 
D(1,1)=A(l,1); 
for i=2:m 
L(i,1)=A(i,1)/D(1,1); 
end 
for i= 3:m 
for j=2:m 
s= 0; 
for k=1:j—-1 
s=s+D(k,k) * L(j,k)’2; 
end 
D(J,I)=A(I,I)-s; 
t= 0; 
rE == 坟 
t=t+D(k,k) * L(j,k) * L(i,k); 
end 
L(i,j)= (A(i,j)-t)/D(j,j); 
end 
end 
求解 LY=b 
if nargin== 
T=b(Ds 
for i=2:m 
T=B(i}= son(L(ipLlsi -1a YT(ls1 1) ss 
end 
求解 L'X=Y 
X(m)=Y(m)/D (mm); 
for i=m-1:—1:1 
X(i)=Y(i)/D(i,i)— sum(L(i+1:m,i).x¥xX(i+1:m)); 
end 
else 
w= ls 


end 
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例 2.10 求解 方程 4Ax 一 ,其 中 人 一 


1 1 1 
1 2 | | 
1 一 1 2 
解 ”建立 矩阵 A,b, 并 执行 程序 LDLtdecomp。 


>>A= [-3,1,1;1,2,-1; 1,-1,2]:; 
b= [1, ci - 
[L, DD,X]= LDLtdecomp (A,b) 


运行 后 屏幕 显示 结果 为 


I= DD= X= 
1 0 0 一 3 0 0 0 
-1/3 1 0 0 7/3 0 4/3 
-1/3 -2/7 1 0 0 97 -1/3 


经 检验 结果 正确 , 即 有 LDDL' 一 A,AX= 二 b。 
.7 扎 赶 法 


1. 功能 

将 满足 某 些 条 件 ( 如 , 按 行 ( 列 ) 严 格 对 角 占 优 ) 的 三 对 角 和 矩阵 4 分 解 成 下 三 角 和 矩阵 L 和 
单位 上 三 角 U 的 乘积 , 即 A 二 LU(Crout 分 解 ) ,求解 线性 方程 组 Ax 一 d。 

2. 计算 方法 


(1) 设 


mn; bs 


(2) 各 元 素 计算 如 下 : 


= 
山王 一 0 一 人 Maj;; 
1 
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Cj . 
一 71 一 441 一]。 
J 


© 0 一 Di 一 12jU -1 一 和 09123 u 


i J]. 
(3) Ax 二 d 等 价 于 LUx 二 4d, 即 Ly 二 d ,Ux 二 y, 可 分 别 求解 。 
@ 追 过 程 ( 解 Ly==d): El RE a 
bi ob; UiuUj—!1l 
© 赶 过 程 ( 解 Ux = y): mr 一 yn 一 yj UXij+l ”7 一 1 一 1]，……，]。 
3. 使 用 说 明 
tridiag (a,b,c,qd) 


参数 a ,b,c 分 别 是 矩阵 A 的 次 对 角 线 , 主 对 角 线 和 上 对 角 线 构成 的 向 量 ,d 是 方程 组 
Ax 一 d 的 常数 向 量 。 执 行程 序 后 , 则 返回 方程 组 4Ax=d 的 解 x。 
4. MATLAB 程序 


function s=tridiag (abycyd) 
n= length (qd) ; 
c(1)=c(1)/b(1); 
for j=2:n-—1 
c(j)=c(j)/(b(j)-a(j-1)*c(j-1)); 
end 
d(1)=d(1)/b(1); 
for j=2:n 
a= N=ad TaD a Hey 
end 
s(n)=d(n); 
for j=n-1:—1:1 
35(J)=d()-c(I)* s(j+1); 


end 


全 0 0 一 0 
9 一 1 a 0 有 
= 1 i 0 15| 
例 2.11 设 A= ,d= ,求解 A4AX 一 d。 
0 0 2 ] 一 8 0 -0 
0 0 0 4 -| i | 
0 0 0 UW =—9 9 9 


解 ”建立 矩阵 A 的 三 个 对 角 线 向 量 及 常数 向 量 。 


> a a 
| (1 SN Fe Wh 4 J FE- 
i a 
d= |= 1 =2 = 
x= tridiag (a,b,c,d) 


运行 后 屏幕 显示 结果 为 
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x=1] -2 一 1 0 1/18014398509481984 i 
最 
28 ”QR 分 解法 


定义 2.1 设 wER" 且 wj; 二 1, 则 和 矩阵 互 =I 一 2ww' 称 为 Householder 矩阵 或 反射 
和 矩阵 ,这 里 I 是 nn 阶 单位 和 矩阵。 

易 验 证 吾 是 正 交 对 称 和 矩阵 , 且 Det(H) 二 一 1。 

1. 功能 

用 Gram-Schmidt 正 交 化 过 程 或 Householder 变换 将 实 方 阵 4 分 解 成 正 交 和 矩阵 QO 和 上 
三 角 R 的 乘积 , 即 A 一 QR(QR 分 解 )。 并 可 求解 线性 方程 组 Ax 二 b。 

2. 计算 方法 

Householder 变换 的 具体 构造 如 下 : 

设 n 阶 方 答 阵 A 二 (qi ,as,…,qa,), 其 中 a 是 A 的 第 k& 列 构 成 的 同 量 。 设 ww 一 
(ak ax ax) ,由 定理 知 , 存 在 Householder 和 矩阵 Ps 使 得 


EE (QI sop 9 onk ) (ak "op—1k IN ,0,…,0) 一 yr, 
n 访 
其 中 Mp 一 (2a%) .PP 的 构造 : 令 w= Ta TP:=1 2ww' ,k=1,2,. nl 
j=& k klIl2 


这 样 对 A 实施 nn 一 1 次 变换 Pi ,P,,…,P,_1 后 ,R 一 P,_1…P,PiA 就 是 上 三 角 和 矩阵 。 令 P= 

P,_1…P,Pi ,0 一 PT , 则 P,Q 是 正 交 和 矩 阵 , 目 A 一 QR。 由 于 对 A 实施 正 交 变换 P; 时 , 它 不 改 

变 A 的 前 & 一 1 行 ,所 以 R 的 第 k& 列 ( 理 论 上 ) 就 是 yi , 故 程序 中 直接 令 yi 为 R 的 第 & 列 。 
3. 使 用 说 明 


QRDecomsch (A) ,QRDecomhouse (A) 
QRDecomsch (A, b) ,QRDecomhouse (A, b) 


输入 第 一 个 参数 和 矩阵 4 ,执行 程序 后 ,返回 矩阵 0Q,R 使 得 A 一 QR。 如 果 输 入 第 二 个 参 
数 向 量 b, 执 行程 序 后 , 则 按 顺 序 返 回 方程 组 Ax= 二 b 的 解 x 和 和 矩阵 O ,R。 

注 : 更 全 面 的 QR 分 解 参 见 MATLAB 的 qr 函数 。 

4. MATLAB 程序 


function [X,Q,R]=QRDecomhouse (A,b) 
用 Householder 变换 将 A 分 解 为 正 交 8 与 上 三 角 和 矩阵 R 的 乘积 , 即 A= QR 
[n,nl]= size (A); 
E= eye (n); 
X= Zeros (n,1)}; 
R= zeros (n); 
Pl=E; 
for k=1:n—1 
gs 构造 w, 使 Pk= 工 - 2ww' 
s=— sign(A(k,k)) * norm(A(k:n, k)); 
R(k,k)=— s; 
if k==1 
w= [A(l1,1)+s,A(2:n,k)"']'; 
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else 
w= [zeros (1,k—-1),A(k,k)+s,A(kt 1l:n,k)']'; 
R(l1:k-1,k)=A(l:k— 1,k); 
gs 设 向 量 X= [xl1,x2,… ,xk- 1,xk,… ,xn] ,经 过 Householder 变换 Pk 变 为 
gs 问 量 Y= [x1,x2,*… ,xk- 1,- s,0,0,.…,0]' 
s 则 w= (x-Y) /|| x-Y | = [0,0,%% ,zk+t s,xkt1,°%* ,xn]'/| XI 
s 故 Householder 变换 为 PkK=I-2x*wxw' 

end 

if norm(w)~=0 
W=W/norm (w); 

end 

P=E- 2x*X Wx Ww"'; 

A=PxX A; 

Pl=Px Pl; 

R(l:n,n)=A(l:n,n); 


end 

Q= Pl1"'; 

if nargin== 
b= Pl * b; 
X(n)=b(n)/R(n,n); 
for i=n—1:—-1:1 

X(i)= (b(i)— sum(R(i,it+1:n) .¥ X(i+1:n) '))/R(i,i); 

end 

else 
X= 11s 

end 


function [X,q,r|]=QRDecomsch (A,b) 


s 用 Gram- Schmidt 正 交 化 将 n 阶 方 阵 A 分 解 为 正 交 8 与 上 三 角 和 矩阵 R 的 乘积 , 即 A=QR 


[m,n]= size (A); 


if m~=n 


end 


return; 


d= zeros (m,n); 


X= Zeros (n,1); 


I= Zeros (n); 


for k=1:n 


r(k,k)=norm(A(:,k)); 

if r(k,k)== 
break; 

end 

q(:,k)=A(:, Kk)/r(k, Kk); 

for j=k+1:n 
r(k,j)=q(:,k)' *A(:,J); 
A(:,j)=A(:,j)-r(k,j)* q(:,k); 


end 
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end 
if nargin==2 
b=q" * b; 
X(n)=b(n)/r (n,n); 
{for i=—=n—1:—1:1 
X(i)= (b(i)— sum(r (i,it+1:n).¥X X(i+1:n)'))/r(i,i); 
end 
else 
d= ls 


end 


例 2.12 设 A= 


] 2 ] | 加 
pe 
ee | ;b= , 求 A 的 QR 分解, 并 解 方 程 组 Ax 二 b。 


| | 1 2 


一 1 1 一 3 1 1 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex2_ 12. m。 


De [Lleol eal Teel2r lel= 1 

b= [1,0,1,1]"; 

[xl1,q,r]=QRDecomsch (A,b) s 用 Gram- Schmidt 正 交 化 ; 
[X2,Q,R]= QRDecomhouse (A,b) s 用 Householder 变换 - 


在 MATLAB 命令 窗口 ,调用 ex2 12, 即 得 结果 。 


>>ex2 12 

xl1= 2.0000 

0.0000 

一 工 .0000 

0.0000 
dq=0.5000 UGlom =0.0374 ~W2628 
0.5000 0 Ge li132 0.8485 
0.5000 -0.4082 -0.7506 -0.1414 
-0.5000 0.4082 -0.6351 0.4243 


r=2.0000 0 3.5000 0.5000 
0 2.4495 -0.8165 -1.2247 
0 0 1:4434 =1.3053 
0 0 0 lazied 
X2= 2.0000 
0.0000 
一 .0000 
0.0000 


Q=0.5000 0.8165 0.0577 =0.2828 
0.5000 0.0000 -0.1732 0.8485 
0.5000 -0.4082 0.7506 -0.1414 

-0.5000 0.4082 0.6351 0.4243 


R= 2.0000 0 3.5000 0.5000 
0 2.4495 -0.8165 -1.224]7 
0 0 一 1.4434 1.9053 


0 0 0 1 .2728 
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29 方程 组 的 性 态 与 误差 分 析 


当 我 们 用 直接 法 求解 线性 方程 组 时 ,有 时 求 得 的 解 是 不 精确 的 ,出 现 这 种 情况 的 原因 可 
能 是 方法 不 当 , 也 可 能 是 方程 组 本 和 号 的 性 态 问 题 。 夺 方程 组 系数 矩阵 或 石 端 常 数 项 有 微小 
扰动 ,就 能 引起 方程 组 解 的 巨大 变化 ,那么 这 样 的 方程 组 称 为 “病态 "方程 组 ,其 系数 矩阵 称 
为 “病态 ”和 矩 阵 。 和 否则 称 为 " 展 态 ?方程 组 ,其 系数 窍 阵 称 为 " 民 态 ”和 矩阵 。 


2.9.1 误差 分 析 


方程 组 Ax 二 b 系数 矩阵 A ,常数 项 b 的 扰动 与 解 的 扰动 之 间 有 如 下 关系 。 
定理 2.1 设 Ax 二 b,b 关 0,A 非 奇 异 ,A 与 b 的 扰动 分 别 为 64 和 664 , 解 x 有 扰动 6x, 即 


(A 十 6A)(x 十 Gx) 二 b 十 6b。 当 上 A ! 中 趾 64 二 1 时 , 则 有 
| ex | cond(A) | | 5b | 64 | ] 
”一 一 一 一 一 e , 
| x | ] _ cond(A) 1 全 | | 区 本 | 1 4 


其 中 ,cond(C4) 王 1 4 下。 141 称 为 矩阵 4 的 条 件数 , | .| 是 矩阵 的 算 子 范 数 。 

由 定理 2.1 可 见 ,4 的 条 件数 反映 了 方程 组 的 解 受 输入 数据 扰动 的 影响 程度 , 即 方程 组 
的 病态 程度 。4 的 条 件数 只 与 系数 矩阵 A 有 关 , 而 与 求解 方程 组 Ax 二 b 的 算法 无 关 , 耕 所 
解 的 方程 组 是 病态 的 , 则 不 管用 什么 算法 ,方程 组 的 解 对 于 输入 数据 都 是 敏感 的 。 

定理 2.2 设 Ax 一 b,b 隆 0,A 非 奇 异 ,x 是 方程 的 近似 精确 解 ,x* 是 方程 的 近似 解 ,r 一 
! 一 4Ax”( 称 为 残余 或 剩余 向 量 ) , 则 有 


1 ri | x 一 xx | rl 
. 达 一 一 一 一 一 一 芝 d(A). s 
ns J Tx nr 


定理 2.2 表明 ,cond(A) 之 1 时 ,剩余 向 量 7 的 相对 误差 是 解 的 相对 误差 .xx 的 


很 好 的 度量 。 若 Ax= 二 b 是 病态 方程 组 ,由 于 cond(A) 相 对 很 大 ,因此 即使 r 相对 误差 很 小 ， 
近似 解 的 相对 误差 也 可 能 很 大 。 


>>H=hilb(6) $6 阶 Hilbert 矩阵; 
得 
TI 
2 3 4 5 6 
2 
2 3 #4 5 06 了 
i A 
3 4 5 6 7 8 
He 
2 
4 5 6 7 8 9 
4 上 
5 6 7 8 9 10 
ep 
6 7 8 9 10 11 
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例 2.13 求解 方程 Hx 二 b, 其 中 b= 二 [1,1,2,0, 一 3,5]'。 
解 ” 先 求 其 精确 解 x。 


>>H=hilb(6); 
b= Lay larD 3z3l 
X= Gausselimpiv (H,b) 


屏幕 显示 结果 : 


x=— 30414 
914970 
一 6402480 
17050320 
一 19150740 
7647948 


用 5 位 浮 点 数 写 出 H 的 近似 值 Hi ,并 求 出 Hix==b 的 解 。 


1 0.50000 0.33333 0.25000 0.20000 
0. 50000 0.33333 0.25000 0. 20000 0.16667 
0. 33333 0. 25000 0. 20000 0.16667 0. 14286 
一 | o.25000 0.20000 0.16667 0.14286 0.12500 
0.20000 0.16667 0.14286 0.12500 0. 11111 
0.16667 0.14286 0.12500 0.11111 0.10000 


调用 xl1 王 Gausselimpiv(H1,b) ,屏幕 显示 结果 


xl=— 65174/3 
685219 
-L531302 
14599215 
—17208109 
7140083 


.16667 
. 14286 
. 12500 
| 
. 10000 
.090909 


H 的 条 件数 (依赖 于 所 取 的 矩阵 范 数 ) 为 29070279 ,是 一 个 病态 和 矩阵。 解 x 与 x 有 很 
大 的 差别 ,其 相对 误差 为 (依赖 于 所 取 的 癌 量 范 数 ): wuchal 二 norm(x 一 x ,1)/norm(x,1) 一 
221/1772 守 0. 1247。 如 果 将 上 述 运 算 改 用 8 位 浮 点 数 进 行 计算 。 


H2= [ 1, 0.50000000, 0.33333333, 0.25000000, 0.20000000, 
0.50000000, 0.33333333， 0.25000000, 0.20000000, 0.16666667, 
0.33333333, 0.25000000, 0.20000000, 0.16666667, 0.14285714, 
0.25000000, 0.20000000, 0.16666667, 0.14285714, 0.12500000, 
0.20000000, 0.16666667, 0.14285714, 0.12500000, 0.11111111, 


调用 x2 一 Gausselimpiv(H2,b), 则 


x2= — 446291/14 
955500 


0.16666667; 
0.14285714; 


0.12500000; 
0.11111111; 
0.10000000; 
0.16666667, 0.14285714, 0.12500000, 0.11111111， 0.10000000, 0.90909091le-1]; 
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— 6671473 
17740690 

= 19905239 
7942970 


比较 知 x。 比 xi 更 接近 x, 其 相对 误差 为 ; wucha2 二 norm(x 一 x,,1)/norm(x,1) 二 519/ 
12956 完 0. 0401。 

可 见 病态 方程 组 的 解 对 系数 矩阵 的 扰动 非常 敏感 ,对 这 种 情况 通常 的 处 理 方 法 一 是 增 
加 计算 的 有 效 位 数 ,二 是 采用 迭代 改善 的 办 法 ,它们 是 改善 解 的 精度 的 有 效 办 法 。 

292 迁 代 改善 

1. 功能 

改进 已 知 近似 解 的 精度 ,主要 用 于 病态 方程 组 。 

2. 计算 方法 

(1) 用 Gauss 消去 法 或 LU 分 解法 求解 4x 一 ,得 近似 解 x'”。 

(2) 计算 剩余 回 量 r 一 ! 一 4Ax ,求解 4y 一 r, 得 近似 解 y”。 

(3) 计算 x2 一 x 十 多 , 令 x =x , 转 至 (2) 重 复 这 个 过 程 直 到 满足 条 件 : 上 x 一 


x 二 =e, 其 中 e 是 指定 的 精度 , | 。 | 是 向 量 范 数 。 
3. 使 用 说 明 


[x, kl= Iteratepro (A,b,epsi) 
第 一 个 参数 A 为 方程 组 的 系数 矩阵 ,第 二 个 参数 方程 组 的 常数 向 量 , 第 三 个 参数 epsi 


是 指定 的 精度 ,如果 不 输入 epsi, 默 认 epsi 王 10“。 执 行 后 返回 改善 后 的 近似 解 和 迭代 
数 


党 


4. MATLAB 程序 


function X= Iteratepro (A,b,epsi) 
if nargin==2 
epsi= 10^ (- 6); 
end 
disp(' 用 Gauss 选 主 元 消去 法 求解 Ax=b, 得 初始 近似 解 为 ') 
dg= digits; 
Xl=Gausselimpiyv (A, b) 
digits (2* dg); 
r= (b-Ax xl1); 
X2= Gausselimpiv (A,r); 
X2= Xl1+ x2; 
k=1; 
fanshu= norm (x2— x1); 
while fanshu>=epsi|k<2000 
Xl1= x2; 
r= (b-AxX xl1); 


x2= Gausselimpiyv (A,r); 
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X2= xX1+ x2: 


fanshu= norm (x2— x1); 


k=k+1; 
end 
disp(' 经 过 迭代 改善 后 方程 组 的 近似 解 x2 和 人 迭代 次 数 下 分 别 为 7 
X= X22} 
end 
[1 | 
] 
] 


1 |,H 的 条 件数 为 943656 ,这 是 一 个 病 
1 
四 


态 和 矩阵。 方程 组 Hx 二 b 的 精确 解 是 : z5_accu 王 [5, 一 120,630, 一 1120,630」 。 

例 2.14 用 5 位 浮 点 数 计算 H 得 Hl, 并 求解 方程 Hix 二 b 的 近似 解 ,然后 进行 迭代 改 
善 ,指定 精度 e 二 0. 01。 

解 ”建立 如 下 脚本 文件 ,并 存 为 ex2_14. m。 


Hl= [ 1,0.50000,0.33333,0.25000,0.20000; 
0.50000,0.33333,0.25000,0.20000,0.16667; 
0.33333,0.25000,0.20000,0.16667,0.14286; 
0.25000,0.20000,0.16667,0.14286, 0.12500; 
0.20000,0.16667,0.14286, 0.12500,0.11111]; s 用 5 位 浮 点 数 写 出 H 的 近似 值 Hl1; 

b= [1,1,1,1,1]"; 

[x2, Kk]= Iteratepro (Hl1,b, 0.01) s 进 行 迭 代 改 善 

H2= [ 1,0.50000000, 0.33333333,0.25000000,0.20000000; 

0.50000000, 0.33333333,0.25000000, 0.20000000,0.16666667; 
0.33333333,0.25000000,0.20000000,0.16666667,0.14285714; 
0.25000000,0.20000000,0.16666667,0.14285714,0.12500000; 
0.20000000,0.16666667,0.14285714,0.12500000,0.11111111]; 
s 用 8 位 浮 点 数 写 出 H 的 近似 值 H2 
x3= Gausselimpiv (H2,b) s 直 接 用 Gauss 选 主 元 消去 法 求解 


调用 ex2_14. m, 屏 幕 显示 结果 : 


5 阶 Hilbert 矩阵 H== 


a | wl LI 
-ol 加 | 二 | 加 | 
本 
~ 
| 


>>ex2 14 
用 Gauss 选 主 元 消去 法 求解 Ax= ,得 初始 近似 解 为 


Xxl=1.0et+ 003 * 
0.00598694030869 
一 0.13305227095807 
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0.67300191413457 
—-1.17175676835062 
0.65073329609763 


经 过 迭代 改善 后 方程 组 的 近似 解 和 和 迭 代 次 数 分别 为 


X2= 1.0et+ 003 * 
0.00598694030869 
二 和 OO 
0.67300191413414 
-1.17175676834996 
0.65073329609730 

k=1 

Xx3=1.0et+ 003 * 

0.00501590528856 

-0.12029705868965 
0.63128001015400 
一 .12193181423593 
0.63094454834089 


比较 xi 与 x 可 知 ,它们 的 差别 很 小 ,但 是 它们 与 精确 解 x 的 差别 很 大 。 这 是 由 于 
MATLAB 的 内 部 运算 精度 较 高 (默认 digits 王 32) ,所 以 这 种 采用 双 精 度 的 改善 方法 意义 不 
大 。 当 取 H 的 8 位 精度 的 近似 值 H, 求解 时 ,发现 求 得 的 解 xs 与 精确 解 x 的 差别 很 小 ,可 
见 病态 方程 组 的 解 对 系数 和 矩阵 的 扰动 非常 敏感 。 


忆 10 ”acobi 迭代 法 


1. 功能 

求 方程 组 Ax 二 b 的 近似 解 。 

2. 计算 方法 

设 A==(a;),A 一 D 一 L 一 U, 其 中 DD 是 A 的 对 角 线 部 分 ,一 L, 一 U 分 别 为 4 的 严格 下 、 上 三 
角 部 分 。Jacobi 迭代 法 的 迭 代 格 式 为 : x®* 二 Myx*-? 了 ?十 bj ,k= 二 1,2,…, 其 中 ,Mj 二 DT!1(L 十 U)， 
bj 一 D 'b。 其 分 量 形式 为 


n 
AR) _ > Rk—1) ml 
Pp = (4 一 人 a i = 1,2,°*,n;k = 1,2,.., 
ji 


注 : 算法 要 求 每 个 as (i 二 1],2,…,n) 不 能 为 0, 如 果菜 个 az 一 0， 且 人 4 是 非 奇 异 的 , 则 可 
重 排 方 程 的 次 序 使 得 所 有 az 都 不 为 0。 为 加 速 收敛 ,可 重 排 方程 的 次 序 使 得 az 尽 可 能 大 。 
3. 使 用 说 明 


Jacobiiter (A,b,x0,tol) 


第 一 个 参数 A 是 方程 组 的 系数 答 阵 ,第 二 个 参数 b 是 方程 组 的 常数 各 量 ( 列 向 量 ) ,第 
三 个 参数 x” 是 初始 向 量 ( 列 向 量 ) ,第 四 个 参数 tol 是 指定 的 精度 要 求 ( 即 上 x 一 x* ”|/ 
x 二 toD ,如 果 不 输入 tol, 则 默认 tol 二 10““。 执 行 后 返回 近似 解 和 和 迭代 次 数 。 
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4. MATLAB 程序 


function X= Jacobiiter (A,b,X0,tol) 
if nargin==3 
tol=1.0e— 6; 
elseif nargin<3 
error 
return 
end 
D= diag (diag (A)); D= inv (D); 
I=tril (A,— 1); 
U=triu(A,1); 
B=-Dx (L+U) :7 f=D*x b; 
X=BxX XO+f£; 
k= 1; 
while (norm (X— X0)>=tol)&(k<=1000) 
XO0= X; 
X=B*X XO+f£; 
R= kt 1 
end 
disp(' 迭 代 次 数 为 ') 
k 
disp(' 方 程 组 的 近似 解 为 ') 


10 2 6 1 
例 2.15 用 Jacobi 迭代 法 求解 方程 组 Ax= 二 b, 其 中 A 二 | 4 8 一 1 |,b= 二 |1|, 取 
一 2 3 5 中 


xo=[0,0,0]。 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex2_15. m。 


B= [10,2,6; 4,8,-1;-2,3,5]; 
= 

x0= [0,0,0] 97 

x= Gausselimpiv (A,b) $s 精确 解 ; 

xl1= Jacobiiter (A,b, x0, 0.001) stol=0.001 时 的 近似 解 
x2= Jacobiiter (A, b,x0,0.000001) stol=0.000001 时 的 近似 解 


调用 ex2_15. m, 屏 幕 显示 结果 : 


>>ex2 15 

x=— 0.0871886120996442 
0.1992882562271758 
0.245551601423488 

和 迭代 次 数 为 k=15 

方程 组 的 近似 解 为 

xl1l=— 0.0869960779442221 

0.199421819228543 
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0.245092512195049。 
和 迭代 次 数 为 k= 31 
方程 组 的 近似 解 为 
x2=- 0.0871882790652822 
0.199288205223849 
0.24555131664757 


己 11 ”Gauss Seide 迭代 法 


1. 功能 

求 方程 组 Ax 二 b 的 近似 解 。 

2. 计算 方法 

设 4 一 (ai ),A 一 D 一 L 一 U, 其 中 DD 是 A 的 对 角 线 部 分 ,一 LL, 一 U 分 别 为 4 的 严格 下 、 上 
三 角 部 分 。Gauss-Seidel 揭 代 法 的 迭代 格式 为 : x 人 = 二 Mex“ ?十 bc,k 二 1,2,… ,其 中 ， 
Mc 二 (D 一 L) -1'U ,bc 一 (D 一 L)-'b。 其 分 量 形式 为 


i—] nn 
Er 四 攻 ”，，。 人》 全 . 1 一 | A k 一 | 
7 一 7 一 计 1 
3. 使 用 说 明 
Gaussdel (A,b,x0,tol) 


第 一 个 参数 A 是 方程 组 的 系数 矩阵 ,第 二 个 参数 b 是 方程 组 的 常数 向 量 ( 列 向 量 ) ,第 
三 个 参数 x 是 初始 向 量 ( 列 向 量 ) ,第 四 个 参数 tol 是 指定 的 精度 要 求 ( 即 上 x 一 x* ”|/ 
上 x 中 过 toD ,如 果 不 输入 tol, 则 默认 tol=10-*。 执 行 后 返回 近似 解 和 迭代 次 数 。 

4. MATLAB 程序 


function s=Gaussdel (a,b,x0,tol) 
if nargin==3 
tol=1.0e— 6; 
elseif nargin<3 
error 
return 
end 
D= diag (diag (a)); 
I=tril(a,—1); 
U=triu(a,1); 
C= inv (D+ LIL); 
BF 一 C 关 U” 
f=Cx b; 
Ss=B*X x0+f£; 
n= 0; 
while norm(s— x0)>=tol 
x0= s; 


Ss=B*¥ x0+f; 
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n=nt+1; 
end 
disp ("迭代 次 数 为 ') 
n 


disp(' 方 程 组 的 近似 解 为 ') 

例 2.16 用 Gauss-Seidel 迭代 法 求解 例 2. 15 中 的 方程 组 Ax 二 b。 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex2_16. m。 

A= [10,2,6; 4,8,— 1;-— 2,3,5]; 


b= [llr2l 2 
x0= [0,0,0]";» 


Gaussdel (A,b,x0) 

调用 ex2_16. m, 屏 幕 显示 结果 : 
和 迭代 次 数 为 n=14 
方程 组 的 近似 解 为 


ans=— 0.0871884666791404 
0.19928814006203 
0.245551729291126 


例 2.17 用 Jacobi 渴 代 法 、Gauss-Seidel 迭代 法 求解 方程 组 Ax 一 bp。A,b 及 初始 值 


如 下 。 
lO0O 3 4 5 2 1 
2 24 17 4 SP 2 
一 9 b - Xo — © 
2 2 34 41 4 
rr 18 50 


解 ” 取 tol 二 10 ,建立 如 下 脚本 文件 ,并 存 为 ex2_17. m。 


RE [0 3 2 7 
b= [22, 32, 41,18] " ; 

x0= [1,23,4,50] "'; 

tol= 10^ (— 8)»; 

x Ja=Jacobiiter (A,b, x0,tol) 

XxX ga= Gaussdel (A,b,x0,tol) 


调用 ex2 17. m, 屏 幕 显示 结果 . 


迭代 次 数 为 k= 44 

方程 组 的 近似 解 为 

x Ja=1.14880105994867 
0.80632282947739 
1.02006138233917 
0.802555082834867 

和 迭代 次 数 为 n=12 

方程 组 的 近似 解 为 

x ga= 1.1488010574993 
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0.80632282826345 
1.02006138183752 
0.802555081667427 


与 Jacobi 迭代 法 相 比 ,Gauss-Seidel 迭代 法 收敛 到 精确 解 的 速度 更 快 些 。 
例 2.18 用 Jacobi 进 代 法 、Gauss-Seidel 迭代 法 求解 方程 组 Ax= 一 b。A,b 及 初始 值 
如 下 : 
1 0.5 本 加 0 
A=|0.5 1 0.5 |， | | 
os .和 | 四 四 
解 ”建立 如 下 脚本 文件 ,并存 为 ex2_18. m。 


人 5 0 T0005.11 

b= [2,1,6]"; 

x0= [0,0,0]"'» 

xx= Gausselimpiv (A,b) s 用 高 斯 列 主 元 素 消去 法 求解 ,理论 上 的 精确 解 


x J=Jacobiiter (A,b,x0) 
X g=Gaussdel (A,b, x0) 


调用 ex2_18. m, 屏 幕 显示 结果 : 


xx=-0.5 -2.5 7.5 

迭代 次 数 为 k=2001 

方程 组 的 近似 解 为 

x j=1 -1 9 

和 迭代 次 数 为 n=16 

方程 组 的 近似 解 为 

x g=- -0.500000271020397 -2.49999982145841 7.5000000462394 


与 精确 解 比较 知 ,x_j 是 一 个 错误 的 结果 ,说 明 Jacobi 迭代 法 是 发 散 的 ,而 Gauss-Seidel 达 
代 法 收敛 。 通 过 例 2.16, 例 2.17, 例 2.18 可 见 ,Gauss-Seidel 迭代 法 优 于 Jacobi 迭代 法 ,这 
几乎 总 是 正确 的 ,但 存在 这 样 的 方程 组 ,使 得 Jacobi 迭代 法 收敛 ,而 Gauss-Seidel 迭代 法 

例 2.19 用 Jacobi 迭代 法 、Gauss-Seidel 迄 代 法 求解 方程 组 Ax 一 b。A,b 及 初始 值 


如 下 : 

L 一 0 

] 1 | 六 一 中 

2 也 ] 0 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex2_19. m。 


一 学 


种 一 Xo: 一 


8 


BR [2 一 人 7 1,11;2,2,1]1; 
b= [- 393， 8] 

x0= [0,0,0] "» 

x J=Jacobiiter (A,b,x0) 

x g=Gaussdel (A,b,x0) 


3 
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调用 ex2_19. m, 屏 幕 显 示 结 果 


和 迭代 次 数 为 k=4 
方程 组 的 近似 解 为 
x j=-1 2 6 
和 迭代 次 数 为 n= 1011 
方程 组 的 近似 解 为 


x g=NaN NaN NaN 


验证 知 , 经 过 4 次 迭代 ,Jacobi 迭代 法 得 到 了 精确 解 。 但 是 ,Gauss-Seidel 过 代 法 是 发 散 的 。 
忆 12 松弛 迭代 法 


1. 功能 

求 方程 组 Ax 二 b 的 近似 解 。 

2. 计算 方法 

设 A==(a; ),A= 一 D 一 L 一 U, 其 中 D 是 A 的 对 角 线 部 分 ,一 L, 一 U 分 别 为 A 的 严格 下 、 上 
三 角 部 分 。 松 弛 迭代 法 的 迭代 格式 为 : x 二 Msx“ 十 bs,k 二 1,2,…, 其 中 ,Ms 二 (D 一 
wL) 1((1 一 w)D 十 wU) ,bs 一 w(D 一 wL) 'b。 其 分 量 形式 为 


i 一 1 n 
(kh) (kl) (hk) (一 1) . > 
Xi = ri tw(b:— > as > ,ai 工人 )/es， 1 一 1],273R 一 1 人。 
j=1 j=i 


wo 一 1 时 ,就 是 Gauss-Seidel 迭代 法 。 

注 : 这 种 方法 称 为 松弛 迭代 法 , 简 记 为 SOR 法 ,w 为 松弛 因子 , 当 0 二 w 二 1 时 , 称 为 低 
松弛 迭代 法 ; 当 w>>1 时 , 称 为 超 松弛 迭代 法 。 

3. 使 用 说 明 


SOR (A, b,x0,w,ep) 


第 一 个 参数 A 是 方程 组 的 系数 和 矩阵 ,第 二 个 参数 b 是 方程 组 的 常数 向 量 , 第 三 个 参数 
x"" 是 初始 向 量 , 第 四 个 参数 w 是 松弛 因子 (0 二 w 二 2), 第 五 个 参数 ep 是 指定 的 精度 要 求 
( 即 上 x 一 x* ?有 /x 中 二 ep) ,如 果 不 输入 ep, 则 默认 ep 二 10““。 执 行 后 返回 近似 解 
和 和 迭代 次 数 。 

4. MATLAB 程序 


function s= SOR(A,b,x0,w,ep) 
if nargin==4 
ep=1.0e— 6; 
elseif nargin< 4 
error 
return 
end 
n=1; 
D= diag (diag (A)); 
I=—tril (A,—1); 
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U=-triu(A,1); 

C= 1inv(D- wx L); 

B=Cx [(1-wW) 关 D+wx Ul]; 

f=wx* Cx* b; 

Ss=BxX x0+f; 

while norm(s- x0)>=ep 
Xx0= s; 
Ss=B*xX x0+f; 
n=n+1; 

end 

qdisp(' 迭 代 次 数 为 ') 

n 


disp(' 方 程 组 的 近似 解 为 ') 


例 2.20 用 松弛 迭代 法 求解 例 2. 19 中 的 方程 组 Ax 王 b。 
解 ” 分 别 取 w 王 0. 2,0. 46,0.6。 
建立 如 下 脚本 文件 ,并 存 为 ex2_20. m。 


RE [1L2v 一 和 7 1 11 2,211]; 
b= [- 3,7,8]"; 

x0= [0,0,0] "» 

x 02= SOR (A,b,x0,0.2) 

x 046= SOR (A,b,x0,0.46) 

x 06= SOR (A,b,x0,0.6) 


调用 ex2_20. m, 屏 幕 显 示 结 果 : 


>>ex2 20 
迭代 次 数 为 n=181 
方程 组 的 近似 解 为 
x 02==0.9999399851943361 
1.99999898995890 
6.00000094668992 
迭代 次 数 为 n= 751 
方程 组 的 近似 解 为 
x 046=—1.00000712491570 
2.00000528223479 
6.00000298327589 


迭代 次 数 为 n= 6573 


方程 组 的 近似 解 为 
x 06=— Inf 
Inf 
Inf 
例 2.21 用 松弛 迭代 法 求解 方程 组 Ax 一 bp。A,b 及 初始 值 x。 如 下 。 
4 3 0 = ] 
A=|3 4 一 1 b=|—2|, x =11|。 


4 1 LY 
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解 方程 组 的 精确 解 为 (一 1,1,3)5。 建 立 如 下 脚本 文件 ,并存 为 ex2_21. m。 


1 
有 = 

x0= [1,1,1]"» 

tol= 10~ (7); 

x 08= SOR (A,b,x0,0.8,tol) 
x 1= SOR (A,b,x0,1,tol) 

x 13= SOR (A,b,x0,1.3,tol) 


调用 ex2 21. m, 屏 幕 显示 结果 : 


>>ex2 21 
迭代 次 数 为 n= 53 
方程 组 的 近似 解 为 
X 08=-0.99999981206761 
0.99999982885306 
2.99999995324179 
和 迭代 次 数 为 n= 34 
方程 组 的 近似 解 为 
x 1=—0.999999889191740 
0.99999990816450 
2.99999997704113 
迭代 次 数 为 n=16 
方程 组 的 近似 解 为 
x 13—0.99999999301524 
1.00000000136597 
2.99999999167214 


取 同 样 的 精度 tol 王 10 , 表 2.1 给 出 了 迭代 次 数 N 与 松弛 因子 w 的 关系 。 可 见 最 佳 松弛 
因子 w 王 1. 3。 
表 2.1 SOR 法 和 迭代 次 数 N 与 松弛 因子 w 的 关系 


rr 
网 | 全 | 的 | 全 | 下 王 | 区 | | 罗 |[ 环 | 区 | 
由 例 2. 20, 例 2. 21 可 以 看 出 ,SOR 法 既 可 以 改善 Gauss-Seidel 迭代 法 不 收敛 的 例子 ， 
又 可 以 加 速 收 敛 性 。 松 弛 因子 对 收敛 性 或 收敛 速度 影响 极 大 ,使 用 SOR 法 的 关键 是 选取 合 
适 的 松弛 因子 。SOR 法 是 求解 大 型 稀 蚊 方程 组 的 一 种 有 效 方法 ,实用 中 通常 采用 试 算 的 方 
法 选取 最 住 松 弛 因子 , 即 从 同一 初始 向 量 出 发 , 取 两 个 不 同 的 松弛 因子 ,迭代 相同 的 次 数 , 比 
较 剩 余 同 量 r= 二 b 一 Ax” 的 范 数 , 舍 弃 使 r” 较 大 的 松弛 因子 。 此 方法 虽 简 单 ,但 往往 
有 效 。 


2.13 ”这 代 法 的 收 合 性 分 析 


将 方程 Ax 二 b 等 价 地 转化 为 x 二 Mx 十 f ,其 迭代 形式 为 
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x 一 Mr 十 了 C2. 1) 

称 之 为 一 步 定 长 迭代 法 。 可 limx™ 二 x*, 则 x* 二 Mx* 十 f, 从 而 Ax* = 二 bp。 由 此 可 见 , 如 果 
迭代 法 收敛 , 则 一 定 收 敛 到 原 方程 组 的 解 。 

定理 2.3 和 迭代 格式 (2.1) 对 任意 初始 向 量 x ”都 收敛 的 充 要 条 件 是 limM 一 0。 

设 和 矩阵 4 是 n 阶 实 和 矩阵 ,其 特征 值 为 和 ,4s，,… ,24,, 则 称 0(A)= max | | 为 4 的 谱 半 径 。 

定理 2.4 迭代 格式 (2. 1) 对 任意 初始 向 量 x" 都 收敛 的 充 要 条 件 是 迭代 和 矩阵 M 的 谱 
半径 p (MD 二 1。 

定理 2.5 若 迭 代 格 式 (2. 1) 中 迭代 和 矩阵 M 的 1,2 或 2 范 数 上 M | 二 1, 则 对 任意 初始 
向 量 x” ,迭代 格式 (1) 都 收敛 到 原 方程 组 的 解 x* , 且 有 下 列 误差 估计 式 
| M | 


| x i | 二 I— FMT | x*) 一 x | (2 . 2) 

大 
Ee (2.3) 
由 定理 2.5 可 见 , 当 由 x9 一 x* 了 <e 时 , 则 有 由 x* 一 x* 过半 多 je. 当 | MI < 


1 时 ,常用 x” 一 x*-? 二 e 作为 控制 迭代 终止 的 条 件 。 若 上 MD 守 1( Me 二 1) ,尽管 收 
敛 ,但 收敛 速度 可 能 很 慢 。 和 迭代 法 的 收敛 性 与 初始 向 量 无 关 , 但 初始 向 量 的 选取 会 直接 影响 
计算 量 。 显 然 初始 向 量 越 接近 方程 组 的 准确 解 ,计算 量 越 小 。 另 一 方面 , | M | (CoCV) ) 越 小 ， 
{x 中} 收敛 越 快 。 

定理 2.5 的 条 件 是 充分 条 件 而 非 必 要 条 件 , 见 例 2. 22。 


1 一 1 0 0. 1 
例 2.22 设 和 矩阵 4 三 | 一 0. 25 1 一 0.5 oe , 则 方程 组 Ax 一 六 的 Jacobi 
0 一 0. 5 1 0. 3 


迭代 法 和 Gauss-Seidel 迭代 法 都 收 钱 。 但 其 迭代 和 矩阵 Mj ,Me 都 不 满足 定理 2. 5 的 条 件 。 
解 ” 建立 和 矩阵 4, 求 Jacobi 迭代 法 和 Gauss-Seidel 迭代 法 的 迭代 和 矩阵 Mj ,Me ,并 分 别 
计算 它们 的 1,2,ce 范 数 和 谱 半 人 径 ,具体 计算 过 程 见 如 下 脚本 文件 ex2_22. m。 


A= [1 ,-1,0;-1/4,1,-1/2; 0,-1/2,1]; 
b= IU 0.2.0313 

J tril(lA 一 上 > 

U= 一 triu (RAT) ; 

DD= diag (diag (A) ) ; 

MJ= DD¥X (Lt+U) 


WJ= eig (MJ) 计算 MJ 的 特征 值 

rho MJ=max (abs (WJ)) s 计 算 MJ 的 谱 半 径 

norml MJ=norm (MJ,1) s 计 算 MJ 的 1 范 数 上 MJ 1 
norm2 MJ=norm (MJ,2) s 计 算 MJ 的 2 范 数 上 ‖ MJ|| 2 
norminf MJ= norm (MJ, inf) s 计 算 MJ 的 无 穷 范 数 上 Mr|| inf 
MG= inv (DD— L) 关 可 

WG= eig (MG) s 计 算 MG 的 特征 值 
rho_Mg=max (abs (WG) ) s 计 算 MG 的 谱 半 径 


norml MG= norm (MG,1) s 计 算 MG 的 1 范 数 | mc 1 
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norm2 MG= norm (MG,2) s 计 算 MG 的 2 范 数 eMG|| 2 
norminf MG=norm(MG,inf) s 计 算 MG 的 无 穷 范 数 


调用 ex2 21. m, 屏 幕 显示 结果 : 


>>ex2 22 
MJ= 0 1.0000 0 
0.2500 0 0.5000 
0 0.5000 0 
WJ= 0.7071 
-0.0000 
-0.7071 


rho MJ=0.7071 
norml MJ=1.5000 
norm2 MJ=1.1180 
norminf MJ=1 
MG=0 1.0000 0 
0 0.2500 0.5000 
0 0.1250 0.2500 
WG= 0 
0.5000 
0 
rho Mg= 0.5000 
norml MG=1.3750 
norm2 MG=1.0530 
norminf MG=1 


故 由 定理 2.4 即 得 所 求 结论 
定义 2.2 设 4ER ,生存 在 置换 矩阵 PER""* 使 得 


map 一 |， | 
0 H 
其 中 ,F,H 都 是 方 阵 ,0 表示 堆 矩 阵 , 则 称 4 是 可 约 的 ,否则 称 A 为 不 可 约 的 。 
6 4 1 3 1 0 0 0 
oo 10 2 |oo100 
例如 ,A=| 2 2 4 oo 
0 一 2 0 8 0 0 0 1 
交换 A 的 二 三 行 ,同时 将 得 到 的 矩阵 的 二 、 三 列 进行 交换 , 则 有 
6 41 3 6 1 4 3 
| 
0 1 0 0 12 
| 


即 有 P,;AP. 一 ,所 以 4 是 可 约 的 。 


< 

所 OD = 
pd 

co 二 
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定义 2.3 设 A=(as)ER"™™", 若 


2 qa5 llas| G= 1,2,.…,n), (2. 4) 
j=1 


则 称 4 按 行 对 角 占 优 ; 硅 上 式 痢 为 严格 不 等 式 , 则 称 A 按 行 严 格 对 角 占 优 。 
右 


> | ai [和 受 | ji | (F -=== lds Nn)s Ca) 


ti) 

则 称 A 按 列 对 角 占 优 : 知 上 式 都 为 严格 不 等 式 , 则 称 A 按 列 严格 对 角 占 优 。 

若 和 矩阵 4 按 行 ( 列 ) 对 角 占 优 , 且 (2. 4) 式 (或 (2.5) 式 ) 中 至 少 有 一 个 是 严格 不 等 式 , 则 
称 A 按 行 ( 列 ) 弱 对 角 占 优 。 

定理 2.6 设 方程 组 Ax 一 b 的 系数 矩阵 A 满足 下 列 条 件 之 一 : 

OO 按 行 ( 列 ) 严 格 对 角 占 优 ; 

@ 不 可 约 且 按 行 ( 列 ) 弱 对 角 占 优 , 则 Jacobi 迭代 法 和 Gauss-Seidel 迭代 法 都 收敛 。 

定理 2.7 若 方 程 组 Ax 二 b 的 系数 矩阵 A 是 对 称 正 定 的 , 且 2D 一 A 也 是 对 称 正定 的 ， 
则 Jacobi 迭代 法 收敛 ; 若 4 是 对 称 正定 的 而 2D 一 A 是 非 对 称 正定 的 , 则 Jacobi 迭代 法 不 
收敛 。 

定理 2.8 大 方程 组 4Ax 一 的 系数 和 矩阵 4 是 对 称 正 定 的 , 则 Gauss-Seidel 迭代 法 收敛 。 

定理 2.9 SOR 迭代 法 收敛 的 必要 条 件 是 松弛 因子 w 满足 0 二 o 一 2。 

定理 2.10 若 方 程 组 Ax 二 b 的 系数 矩阵 4 是 对 称 正 定 的 , 则 当 0 二 w 二 2 时 ,SOR 迭代 
法 收敛 。 

定理 2.11 部 方程 组 Ax==b 的 系数 矩阵 A 是 严格 对 角 占 优 的 , 则 当 0 二 w 硅 1 时 ,SOR 
迭代 法 收敛 。 

利用 MATLAB 哺 数 和 定理 2. 5, 容 易 写 出 判断 方程 组 的 Jacobi 迭代 法 和 Gauss-Seidel 
和 迭代 法 是 否 收敛 的 程序 。 

function JGConverge (AA,G) 

s 若 输入 任意 数值 作为 第 二 个 参数 , 则 判断 Gauss-seidel 迭代 法 的 收敛 性 ,车 第 二 个 参数 是 默认 值 ， 

则 判断 Jacobi 迭代 法 的 收敛 性 

I=— tril (AA,- 1); 

U= -triu(AA,1); 

DD= diag (AA); 

DD= diag (DD); 

if nargin==1 

MG= inv (DD) 关 (L+U); 
else 
MG= inv (DD-— L) 关 U; 
end 
W= eig (MG) : 


rho=max (abs (W) ); 
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if nargin==1 


if rho<1 
disp('oacobi 迭代 法 收敛 ,迭代 和 矩阵 的 谱 半 径 为 ') 
rho 
else 
disp('oacobi 迭代 法 发 散 , 夫 代 和 矩阵 的 谱 半 径 为 ') 
rho 
end 
else 
if,rThoc<l1 
disp('Gauss- Sedel 办 代 法 收敛 ,迭代 和 矩阵 的 谱 半 径 为 ') 
rho 
else 
disp('Gauss- Sedel 迭代 法 发 散 , 迭 代 和 矩阵 的 谱 半 径 为 ') 
rho 
end 
end 
例 2.23 考察 方程 组 Ax 一 的 Jacobi 友人 代 法 和 Gauss-Seidel 迭代 法 的 收敛 性 ,其 中 系 
3 1 2 6 ] 0 2 了 2 
数 和 矩阵 分 别 取 4=|0 4 1|,2 王 |8|,4 = 上 |0 4 1|,b=|8|,A:= 二 |1 4 0|， 
sa jy le 


解 ”显然 Ax 二 b 与 41x 二 bl 是 1,3 行 交换 的 方程 组 ,作为 方程 组 ,它们 是 相同 的 。 而 
4x 一 与 4:x 一 是 1,3 列 交 换 的 方程 组 , 即 第 一 个 变 元 与 第 三 个 变 元 交换 了 次 序 。 在 
MATLAB 命令 窗口 输入 


>>A= [3,1,2; 0,4,1;1,0,2]; 
Al= [1 0.23 0,4,1; 3,1,2]; 
BR2= -12,13; 1.4.07 2.0.11s 


调用 程序 JGConverge, 有 如 下 结果 : 


> > JGConverge (A) 

Jacobi 迭代 法 收敛 ,和 迭代 矩阵 的 谱 半径 为 rho=0.6319 

> > JGConverge (A, 1) 

Gauss— Sedel 迭代 法 收敛 ;迭代 和 矩阵 的 谱 半 径 为 rho= 0.2041 
> > JGConverge (Al ) 

Jacobi 迭代 法 发 散 , 迁 代 矩阵 的 谱 半径 为 rho=1.7678 

> > JGConverge (Al, 1) 

Gauss- Sedel 迭代 法 发 散 ,迭代 和 矩阵 的 谱 半径 为 rho=3.1250 


> > JGConverge (A2) 


第 2 章 线性 方程 组 的 解法 ”<45 


Jacobi 迭代 法 发 散 , 和 迭代 矩阵 的 谱 半 径 为 rho=1.7678 

> > JGConverge (A2, 2) 

Gauss- Sedel 迭代 法 发 散 , 和 迭代 矩阵 的 谱 半 径 为 rho=3.1250 

此 例 说 明和 迭代 法 的 收敛 性 可 能 由 于 方程 组 中 方程 的 次 序 ( 或 未 知 元 的 编号 ) 的 改变 而 改 
变 。 故 对 给 定 的 方程 组 , 奋 迭 代 法 不 收敛 ,可 适当 改变 方程 或 未 知 元 的 次 序 来 导出 收敛 的 和 迭 
代 格 式 。 


的 数 的 插值 


由 名 注 


插值 在 数学 发 展 史 上 是 个 古老 问题 , 它 最 初 来 源 于 天 体 计算 一 一 由 硅 干 观测 值 计算 任 
意 时 刻 星 球 的 位 置 。 在 科学 研究 和 工程 技术 中 ,经 稼 会 遇 到 计算 困 数 值 的 问题 ,而 有 时 上 尊 数 
关系 很 复杂 ,甚至 没有 解析 表达 式 。 例 如 ,根据 观测 得 到 的 系列 数据 ,确定 了 上 自 变 量 的 茶 些 
点 处 的 郴 数值 ,要求 计 算 未 观测 到 的 点 的 郴 数值 。 此 时 ,我 们 可 根据 已 知 数据 构造 一 个 简单 
适当 的 图 数 近 似 代 蔡 要 寻求 的 图 数 , 这 就 是 图 数 的 插值 法 。 另 外 ,插值 又 是 数值 微分 .数值 
积分 、 常 微分 方程 数值 解 等 数值 计算 的 基础 。Lagrange 多 项 式 搬 值 . 牛 顿 插值 是 最 基本 的 
插值 方法 。 当 用 插值 多 项 式 近 似 代 蔡 困 数 时 , 随 着 多 项 式 次 数 的 增加 ,不 仅 增 大 了 计算 量 ， 
而 且 有 时 会 市 来 很 大 的 误差 ,如 Runge 现象 。 为 了 避免 这 种 振荡 误差 ,可 采用 分 段 低 次 插 
值 ,如 线性 插值 .抛物 插值 。 它 们 不 仅 简 便 , 而 且 台 近 效果 往往 优 于 高 次 Lagrange 插值 ,不 
足 之 处 是 在 搬 值 节点 处 其 导数 不 连续 ,这 不 利于 理论 分 析 和 工程 设计 ,但 可 采用 样 条 插值 避 
免 出 现 这 种 情况 。 


31 Lagrange 插值 


1. 功能 

给 定 函 数 y 二 f(x) 在 nn 十 1 个 不 同 插 值 节点 zi(k 二 0,1,…,n) 处 的 函数 值 y 二 f(x) 
(k 二 0,1,…,n), 求 f(z) 的 Lagrange 插值 多 项 式 P(x)。 

2. 计算 方法 

Lagrange 的 经 典 插值 公式 为 


P(xz) = > f(r)li(z), 
k=0 


其 中 li (TX) 一 [| 二 一 一 (A 一 0,1 1，…，77) , 称 之 为 在 节点 To 9 .19 ”9 人 7 上 的 7 次 Lagrange 捕 


了 
值 基 男 数 。 
3. 使 用 说 明 


Laginterp (xvals,yvals,x0) 
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第 一 个 参数 zvals 为 捅 值 节 点 ( 回 量 形式 ) ,第 二 个 参数 yvals 为 插值 节点 zvals 处 对 应 
的 函数 值 (向 量 形式 )。 若 只 输入 前 两 个 参数 , 则 给 出 插值 多 项 式 的 表达 式 。 帮 输入 第 三 个 
参数 xo( 一 组 数值 ), 则 计算 在 xe 处 的 插值 。 

4. MATLAB 程序 


function s=Laginterp (xl1,yl1,x0) 
nxl= length (x1); 
nyl= length (Y1) ; 
if nxl~=nyl 
warning (' 问 量 xl 与 yl 的 长 度 应 该 相同 ') 
return; 
end 
if nargin== 
Syms x; 
Ww= 0; 
digits (6) 
for k=1:nxl 
uU=1.0; 
for j=1:nxl 
if Jj~=k 
u=Ux (x-—x1 (3))/(xl(k)— x1(3)); 
end 
end 
w=w+tux yl (k); 
end 
s= simplify (w); 
disp(' 拉 格 朗 日 插值 公式 的 小 数 形式 为 ') 
vpa (5s) 
disp(' 拉 格 朗 日 插值 公式 的 分 数 形式 为 ') 
else 
m= length (x0); 
for i=1:m 
t= 0.0; 
for k=1:nxl 
u=1.0; 
for j=1:nxl 
if Jj~=k 
u=u¥x (x0(i)-x1(j))/(xl(k) -x1 (j)); 
end 
end 
t=t+ux yl (k); 
end 
s(1i)=t; 
end 


end 
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例 3.1 用 4 个 节点 (1,5),(2,2),(3,1),(5,3) 构 造 郴 数 f(x) 的 三 次 插值 多 项 式 
P:(z) ,并 求 f(1.5),f(3.3) 的 近似 值 。 

解 ” 记 xrvals 一 [1,2,3,5],yvals 一 [5,2,1,3j|, 代 入 插值 程序 Laginterp,; 则 得 到 插值 多 
项 式 P: (z)。 建 立 如 下 脚本 文件 , 存 为 ex3_1. m。 


Xwals= 12 3 “Yeoals= lv2 32 x0O= ,33|， 


pp= Laginterp (xvals,yvals) s 求 插值 多 项 式 

y0= Laginterp (xvals, yvals, x0) s 求 在 x0 处 的 插值 

Xx= 1 :0.05:5; 

yy= Subs (pp, xx); 

plot (xx, yy, 'r',xvals,yvals, 'bx* ') % 画 插值 多 项 式 及 插值 节点 的 图 形 


legend (' 插 值 多 项 式 ',' 插 值 节点 ') 
在 命令 窗口 调用 ex3_1. m 后 ,屏幕 显示 结果 为 (图 像 为 图 3. 1) 
>>ex3 1 

拉 格 朗 日 插值 公式 的 分 数 形式 为 


pp=— 1/12x* X^3+ 3/2* x^2- 83/12 关 x+ 21/2 
y0= 3.2188 1a0153 


3.1 f(x) 的 3 次 插值 多 项 式 P;(x) 的 图 像 


在 点 pr 证 2 处 的 Lagrange 插值 基 郧 数 bs (z) 是 在 节点 (zi sy 0 和 (Xj-1 0 1 
(zi 1),(Cz+ly0), (zy 0) 处 的 插值 多 项 式 。 因 此 本 例 中 的 Lagrange 插值 基因 数 Li (Cz)， 
L，(z),L:(Cz) 和 LE,(Cz) 可 构造 如 下 : 


>>Ll=Laginterp([l1,2,3,5], [1,0,0,0]) 
L2=Laginterp([1,2,3,5], [0,1,0,0]) 
L3=Laginterp([1,2,3,5], [0,0,1,0]) 
L4=Laginterp([1,2,3,5], [0,0,0,1]) 


执行 上 述 命令 后 可 求 得 
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_ 1， 5 四 
和 8&7 tT gt Ls = 32 3X 32 5， 
区 攻 一 1T 十 2x re L4 = 747 iz 十 547 rE 


在 点 (1,5),(2,2),(3,1),(5,3) 处 的 三 次 插值 多 项 式 P; (zx) 可 由 插值 基 哨 数 求 得 , 即 P; (x) 王 
5Li1(ZX) 十 2Ls(z) 十 Ls(zx) 十 3Ls (zx)。 图 3.2 给 出 了 插值 多 项 式 P; (x) 的 4 项 (5Li (zx)， 
2Ls(X) ,L3(X) ,3L4(X)) 的 图 像 。 每 一 部 分 恰好 经 过 一 个 插值 节点 ,而 插值 多 项 式 P: (xz) 经 
过 所 有 的 插值 节点 (画图 程序 见 exa3_1. m)。 


插值 多 项 式 P30x0 

了 播 值 基 轩 数 5LI00 

播 值 基 函 数 2L209 

一 一 一 播 值 基 国 数 La00 

#。 播 值 基 国 数 3L400 
© ”插值 节点 


1 1.5 2 2.5 3 3.6 4 4.5 9 


3.2 插值 多 项 式 P; (zx) 及 其 插值 基 哨 数 L; (x) 的 对 比 


3P2 牛顿 插值 


1. 功能 
给 定 靖 数 y 二 f(z) 在 nn 十 1 个 不 同 插值 节操 x;(i 二 0,1,…,n) 处 的 函数 值 y; 二 f(x;) 
(i 二 0,1,…,n), 求 (zx) 的 牛顿 插值 多 项 式 P(x)。 
2. 计算 方法 
牛顿 插值 多 项 式 为 
px) =f(z0) tt flzo sxi Ix — zo) flro sz, xs I(r — zo) (rx— Zz1) 
十 … 十 f[zxoyXi 9* Tj](X— Xo) (TO ZX), 


其 中 , f[zoy zi] 二 XD 一 /zo 称 为 f(x) 关于 zo,xi 的 一 阶 差 商 , f [zos zi, zz] 一 


X11 Xo 


fz ,ze flro sz :zz 一 太 zoyz1] 称 为 Fr(z) 关 于 xzoy zz 的 二 阶 差 商 , fL xo, zi，…， ZX 二 


ee 


fz zj 和 为 f(x) 关于 zo ,xi，…,z; 的 k 阶 差 商 。 


LE bd 
3. 使 用 说 明 


Newinterp (xvals, yvals, x0) 
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第 一 个 参数 zvals 为 捅 值 节 点 ( 回 量 形式 输入 ) ,第 二 个 参数 vvals 为 插值 节点 处 对 应 的 
子 数 值 。 硅 只 输入 前 两 个 参数 , 则 给 出 牛顿 插值 多 项 式 的 系数 ( 回 量 形式 )。 硅 输入 第 三 个 
参数 zxo( 一 组 数值 ), 则 计算 在 ze 处 的 插值 。 

4. MATLAB 程序 


function C=Newinterp (X,Y,X0) 
n= length (XxX); 
D= zeros (n,n); 
D(:,1)=Y"; 
for j=2:n 
for k=j:n 
D(k,j)= (D(kK,j—-1)-D(k-1,j-1))/(X(k)-X(k-j+1)); 
end 
end 
s 求 牛顿 插值 多 项 式 的 系数 
c=D(nrn) ; 
for k= (n—1):—1:1 
C= conv (C,poly (X (k) ) ) ; 
m= length (C); 
C(m)=C(m+D(k,k); 
end 
if nargin==3 
Y0=polyval (C,X0); 
fprintf(' 在 x0 处 的 插值 为 \n') 
Y0 
end 
if nargin==2 
fprintf(' 差 商 表 为 \n') 
D 
fprintf("sq 次 插值 多 项 式 的 系数 为 ( 降 堪 ) \n'vn- 1) 


end 


例 3.2 用 节点 (1 ,5),(2,3),(4, 一 2),(5,1),(6,3), 求 牛顿 插值 多 项 式 ,并 求 f(2. 1)， 
f(3.5) 的 近似 值 。 

解 ” 记 zxvals 二 [1,2,3,4,5,6|],yvals 二 [5,3, 一 2,1,3j], 代 入 插值 程序 Newinterp, 则 得 
到 插值 多 项 式 P, (x)。 建 立 如 下 脚本 文件 , 存 为 ex3_2. m。 


xvals= [1,2,4,5,6]; yvals= [5,3,2,4,3]; 
p4=Newinterp (xvals,yvals) 

XO0= [2.1 .33.518 

Newinterp (xvals,yvals, x0); 


在 命令 窗口 调用 ex3 2. m 后 ,有 下 述 结果 。 


Se ex3 2 


差 商 表 为 


5 省 0 0 0 

3 -2 0 0 0 

2 -1/2 1/2 0 0 

4 2 5/6 1/12 0 

3 -1 -3/2 -7/12 -2/15 
4 次 插值 多 项 式 的 系数 为 ( 降 客 ) 
p4=-2/15 101/60 -397/60 121/15 2 
在 x0 处 的 插值 为 


Y0= 5599/2031 43/32 
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例 3.3 ”分别 在 [0 到 玉 ,2] [0 村, 导 汪 霹 引 ,[o 二 污 汉 汪 二 二 池 中] 处 


建立 好 数 f(x) —e-* 的 牛顿 插值 多 项 式 。 


解 ”建立 如 下 的 脚本 文件 ,并 存 为 ex3_3. m。 


ff=inline('exp(-x.^2) '); 

xvalsl= [0,1/2,1,3/2,2]:; 

yvalsl= ff (xvalsl1); 

xvala2= [0,.1/3,2/3;1,4/3,5/3,.213 

yvals2= ff (xvals2); 

xvals3= [0,1/4,1/2,3/4,1,5/4,3/2,7/4,2]; yvals3= ff (xvals3); 


p4= Newinterp (xvalsl,yvalsl) s4 次 插值 多 项 式 的 系数 

p6= Newinterp (xvals2,yvals2) $6 次 插值 多 项 式 的 系数 

p8= Newinterp (xvals3,yvals3) %8 次 插值 多 项 式 的 系数 

$s 绘制 各 插值 多 项 式 的 图 像 

Xxx= 0:0.05:2; 

yy4= polyval (p4, xx); s 求 4 次 插值 多 项 式 在 xx 处 的 值 
YY6- polyval (p6, xx) ; s 求 6 次 插值 多 项 式 在 xx 处 的 值 
YY8= Polyval (p8, xx) ; s 求 8 次 插值 多 项 式 在 xx 处 的 值 


tplot (ff ,=05.233|1} 
hold on 
plot (xxeyyd, I XX/YYOr 本 RRYVYO, ks')s 


legend (' 胃 数 exp (-x^2)', '4 次 插值 多 项 式 p4','6 次 插值 多 项 式 p6','8 次 插值 多 项 式 p8'); 


hold off 
figure 
plot (xx, EE (xx)— vyB8;y rr =") 


在 命令 窗口 调用 ex3_3.m 后 ,有 下 述 结果 (图 像 为 图 3.3、 图 3. 4)。 


4 次 插值 多 项 式 的 系数 为 ( 降 震 ) 

p4=-311/1499 4056/3779 -3547/2181 100/779 1 

6 次 插值 多 项 式 的 系数 为 ( 降 震 ) 

p6=619/8546 -1033/2313 609/718 -299/2547 -1811/1829 31/21898 1 

8 次 插值 多 项 式 的 系数 为 ( 降 震 ) 

p8=-751/57264 2015/23173 -891/5996 -672/3655 862/1203 -271/2300 
1 


sf (x) 与 8 次 插值 多 项 式 p8 的 误差 图 


一 283/292 


一 13/4273 
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函数 exp(-x 信 

”4 次 插值 多 项 式 p。 
6 次 插值 多 项 式 p。 
8 次 插值 多 项 式 p。 


—0.5 0 0.5 1 ls 2 2.5 


3.3 函数 e-* 及 其 不 同 次 数 的 插值 多 项 式 的 图 像 


详 弟 汪汪 加 汶 六 六 -小 A 
* ~. eT a 淋 


0 02 04 06 0.8 1 12 14 16 1.8 rs 


2 


3.4 (e ”一 p8(x)) 的 图 像 


33 ” Hermite 插值 


1. 功能 
给 定 盟 数 y= 二 f(r) 在 nn 十 1 个 不 同 插值 节点 zx;(i 二 0,1,…,n) 处 的 阴 数 值 y; 二 f(x;) 及 
一 阶 导 数值 y= 二 f(x;)(i==0,1,…,n), 求 f(x) 的 Hermite 插值 多 项 式 Psi1(x)。 
2. 计算 方法 
Hermite 插值 公式 为 
A [> 二 比 区 二 > -ji 


k=0 j=0,jzk “ek — Zi;) 
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其 中 L, (ZX) 一 | 二 一 ( 一 人 


_ 


了 


3. 使 用 说 明 
Herminterp (xl1,yl,m,x0) 


第 一 个 参数 zi 为 插值 节点 ,第 二 个 参数 yi 为 插值 节点 处 的 函数 值 ,第 三 个 参数 m 为 
插值 节点 处 果 数 的 一 阶 导 数 。 在 只 输入 zi ,yi 各, 则 返回 Hermite 插值 的 多 项 式 表达 式 。 
若 输 入 第 四 个 参数 zu (一 组 数值 ) , 则 求 出 ze 处 相应 的 晒 数 捅 值 。 

4. MATLAB 程序 


function S=Herminterp (X1L,Y1L,mvrXO0) 
n= length (x1); 
if nargin==3 
syms x; 
S= 0» 
for k=1:n 
I=1.0; 
for j=1:n 
if j~=k 
IL=Lx ((x-x1(j)) ”2/ (xl (k)- x1(j))”2); 
end 
end 
G= 0; 
For 41=1sn 
if Jj~=k 
G=G+ 1/ (x1 (kK) x1 (j)); 
end 
end 
S=S+ (yl (Kk)+ (xl1 (k)— x) 关 (2 关 Gx yl (k)—-m(k))) *L; 
end 
S= simplify (Ss); 
disp('Hermite 插值 公式 为 ') 
S= vpa (5,10); 
elseif nargin== 4 
m= length (x0); 
H= 0; 
for i=1:mm 
for k=1:n 
I 二 |-.0s 
for j=1:n 
if Jj~=k 
I=L¥x ((x0(i)-x1(j))°2/ (xl1(k)— x]1 (j)) ”2); 
end 
end 


G= 0» 
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for j=1:n 
if j~=k 
G=G+ 1/ (x1 (kK)— x1 (j)); 
end 
end 
H=H+ (yl (k)+ (xl1 (k)— x0(1)) * (2¥*x G¥* yl (k)—-m(k))) * IL; 
end 
fprintf(' 在 sg 处 的 Hermite 插值 为 \n',x0 (i)) 
H 
end 


end 


例 3.4 对 因数 (zz) 一 e02 取 节 点 0,1,1.5,2, 求 f(z) 的 Hermite 插值 多 项 式 P; (x)， 
并 计算 f(0.5),f(1.1) 的 近似 值 。 
解 ”建立 如 下 困 数 文件 和 脚本 文件 ,并 存 为 ex3_4. m。 


function y=exf3 4 (X) 


syms x; 
y=exp (0.2* x^2); 


将 以 上 也 数 文 件 存 为 exf3_4. m。 


xvals= [10,.1,.1.5.213 

yvals= subs (exf3 4,xvals); 

Df=diff (exf3 4); 

ydvals= subs (Df,xvals); 
p/=Herminterp (xvals,yvals,ydvals) 
x0= [0.5,1.1]; 

Herminterp (xvals,yvals,ydvals,x0) 


Xx= 0:0.05:2; 

yy= subs (p7, xx); s 求 插值 多 项 式 p7 在 xx 处 的 函数 值 
YY1= subs (exf3 4,xx); s 求 函数 exp (0.2x* x^2) 在 xx 处 的 函数 值 
ff= Inline('exp(0.2 关 和 X 2)"); 

fplot (ff, [0,2] ) s 画 exp (0.2x* x^2) 的 图 形 

hold on 

plot (xx, yy, 'r* '); s 画 插值 多 项 式 p7 的 图 形 
legend (' 函 数 exp (0.2* x^2) ', ' 插 值 多 项 式 p7'); 

hold off 

figure 

plot (xx, yyl— yy, 'r— * '); % 男 exp (0.2x* x^2)-p7 的 图 形 


在 命令 窗口 调用 ex3_4.m 后 ,有 下 述 结 果 ( 图 像 为 图 3.5、 图 3. 6)。 


>>ex3 4 

Hermite 插值 公式 为 

P7=1+0.1975426085 < x ^ 人 2+ 0.01021716665 < x^3+ 0.002879865353 < x^4+ 0.01463243026 *x x^5— 0. 
005227961922 * x^6+ 0.001358649298 x x ^7 

在 0.5 处 的 Hermite 插 值 为 


H= 1.05122898053419 
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在 1.1 处 的 Hermite 插值 为 
H= 2.32502264144758 


2.5 
国 数 expfD.2*x) 
* 播 值 多 项 式 p， 


上， 村 寺中 
0 0.2 04 0.6 0.8 1 1.2 1 4 1.6 1.8 2 


0 02 04 06 0.8 1 12 1.4 1.6 1.8 2 


3.6 (e%2* 一 P;(x)) 的 图 像 


34 分 7 段 二 次 Herrmmite 拖 值 


Runge 现象 ” 当 用 高 次 插值 多 项 式 允 近 限 数 时 ,由 于 插值 多 项 式 在 某 些 非 节 点 处 的 振 
荡 可 能 加 大 ,因而 可 能 使 误差 变 得 很 大 。 对 晴 数 f(x) 二 1/(1 十 x*)( 一 5 夺 x 三 5), 取 等 距 节 
点 , 求 得 5 次 、10 次 插值 多 项 式 L; (x) ,Lio (xz), 作出 它们 的 图 形 , 可 见 , 在 接近 区 间 两 端点 附 
近 , f(x) 与 Lio (xz) 的 偏离 很 大 。 建 立 如 下 脚本 文件 ,并 存 为 runge. m。 


ff=inline('l1./ (lt+x.^2) 7) 7 
xl= linspace (- 5,5, 6); 
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yl= ff (x1); 

x2= linspace (9,95,11); 

y2= ff (x2); 

L5= Laginterp (xl1, y1) s 求 5 次 插值 多 项 式 L5 
L10= Laginterp (x2, y2) s 求 10 次 插值 多 项 式 L10 
xx=— 5:0.05:5; s 取 一 组 数据 

yyl= subs (L5, xx); s 计 算 15 在 xx 处 的 值 
yy2= subs (L10,xx) ; s 计 算 L10 在 xx 处 的 值 
fplot (ff, [- 5,5]); s 画 | f(x)=1/ (1+x^2) 的 图 形 
hold on 

plot (xx, yyl, gx ',xx, yy2, 'r—— '); s 画 L5,L10 的 图 形 

hold off 


legend (' 录 数 f(x) ','5 次 插值 多 项 式 L5','10 次 插值 多 项 式 L10'); 


在 命令 窗口 执行 runge, 则 画 出 图 3. 7。 


一 一 一 国 数 fo0) 
5 雇 播 值 多 项 式 15 
一 一 一 10 次 播 值 多 项 式 L10 


为 克服 高 次 插值 的 这 种 不 足 ,采用 分 段 低 次 插值 是 实际 应 用 中 的 良好 方法 。 
1. 功能 
给 定 函 数 y= 二 f(x) 在 nn 十 1 个 不 同 插值 节点 zx;(i 二 0,1,…,n) 处 的 函数 值 y; 二 f(x;) 及 
一 阶 导 数值 y;= 二 f(x;)(i==0,1,…,n), 求 f(x) 在 每 个 小 区 间 [zx;,zxi#1](i==0,1 ,…,n 一 1) 
上 的 三 次 Hermite 插值 多 项 式 。 
2. 计算 方法 
在 每 个 小 区 间 [zx; ,zxi+ti1] 上 ， 
ps(z) 一 [三 二 2 | (1+2 2 y+ (2 ) (1+2 Ea jy 
be pe 了 一代 ks TY mm TiO— Xl 
x (EE )] yt dyn 0 D), 


3. 使 用 说 明 


Hermit3p (xl1,y1l,m) 


第 3 章 函数 的 插值 


H= Hermit3p (xl1,yl,m,x0) 

第 一 个 参数 zi 为 插值 节点 ,第 二 个 参数 yj 为 插值 节点 处 对 应 的 本 数值 ,第 三 个 参数 m 
为 插值 节点 zi 处 困 数 的 一 阶 导 数 , 和 耕 只 输入 三 个 参数 , 则 给 出 分 段 三 次 Hermite 插值 多 项 
式 ( 此 时 无 返回 参数 )。 硅 输入 第 四 个 参数 ze (一 组 数值 ) , 则 返回 在 ze 处 的 插值 。 

4. MATLAB 程序 


function Hermit3p (xl1,yl,m,x0) 
n= length (x1); 
if nargin== 
syms x; 
for k=1:n—1 
pp= ( (x— X] (K+ 1))/ (xl (k)—x1 (K+t1)))^2x* (1+2 关 (x— Xx] (Kk))/(xl1 (kt+1)— x1 (kK))) * yl (k)+ 
( (x— xl1 (k) ) / (xl1 (kt+ 1)— x1 (k)))^2x* (1+2x (x— xxl (kt+ 1))/(xl1 (k)— x1 (kt+1))) * yl (kt+1)+ ((x 
— x1 (kt+ 1))/ (x (kK)—x1 (kt1))) 2 (x— x1 (k)) * m(k)+ ((x— x1 (Kk))/ (x1 (kt+ 1)— x]1 (Kk))) 2* 
(zx— xl1 (K+ 1)) * m(k+ 1); 
Pp= simplify (pp); 
fprintf(' 在 [%g,%g] 上 的 三 次 Hermite 插值 为 \n',xl (k) ,xl(k+1)); 
pretty (pp); 
end 
elseif nargin== 
mm length (X0) ; 
for i= 1:mm 
for k=1:n 
if x0(i)==x]l (k) 
H(i)= yl (k); 
elseif x0(i)>xl (k)& x0(i)<xl (kt+1) 
H(i)= ((x0 (i)— x]1 (kt+1))/ (x (k)—x1 (kt+1)))^2%* (1+2¥% (x0 (i)— x1 (k))/(x1 (kt+1)— 
Xx1 (k) ) ) ¥* yl (Kk)+ ( (xO0 (i)—x1 (Kk))/ (x1 (kt1)— x (Kk))})) “2% (1+2¥% (x0(i)—-x1 (kt+1))/ 
(x1 (k)— x1 (Kt+1))) ¥* yl (kt+1)+ ((x0(i)— x1 (kt+1))/(x1(k)—x1 (kt+1)))^2*%* (x0(i)—x1 
(Kk)) ¥* m(k)+ ((xO0 (i)— x (Kk))/ (x1 (kt 1)—x1 (k))) 2% (x0(i)—x1 (kt+1)) ¥* m(kt1); 
end 
end 
end 
fprintf(' 在 x0 处 的 三 次 Hermite 插值 分 别 为 \n'); 
H; 


end 
例 3.5 对 函数 f(z) 二 1/(1 十 x?)( 一 5 夺 x 二 5) ,分 别 取 5 等 分 和 10 等 分 节点 , 求 f(x) 
的 分 段 三 次 Hermite 插值 多 项 式 , 并 画 出 它们 的 图 像 。 
解 ” 先 取 5 等 分 节点 一 5, 一 3, 一 1,1,3,5, 并 分 别 求 得 在 节点 处 的 函数 值 y 和 一 阶 导 
数值 mi ,代入 程序 Hermit3p, 即 得 6 节点 分 段 三 次 Hermite 插值 多 项 式 。 建 立 如 下 脚本 文 


件 ,并 存 为 ex3_5. Nn。 


ff=inline('1./(1+x.^2) '); 
df=inline(' (-2.* x)./(l+x.^2) .~^2'); sff 的 导数 


op 
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xl= linspace(-— 5,5,6); 


yl= ff (x1); 

ml= df (xl1) ; 

Hermit3p (xl1,y1,ml) s 求 分 段 插值 多 项 式 

xx=— 5:0.05:5; s 取 一 组 数据 

yyl= Hermit3p (x1, yl,ml, xx); gs 计算 分 段 插值 多 项 式 在 xx 处 的 值 
le 5 s 画 f(x)=1/(I+x^2) 的 图 像 

hold on 

plot (xl1, yl1, 'ko',xx,yyl, 'r-—— '); s 绘 制 6 节点 分 段 三 次 Hermite 插值 多 项 式 的 图 像 。 
hold off 

legend(' 图 数 f(x) ',' 插 值 节 点 ',' 分 段 插值 多 项 式 '); 

figure 

yy= ff (xx); 


Dio yy Yl = = "sy 
在 命令 窗口 执行 ex3_5, 则 有 如 下 结果 和 图 像 ( 图 3.8、 图 3.9)。 


| 14 863 。 18 ， 379 
在 [-5,-3] 上 的 3 次 Hermite 插 值 为 : A225* + J6900* 十 5 “676' 


在 [-3,-1] 上 的 3 次 Hermite 插值 为 : et et DSS 


在 [-1,1] 上 的 3 次 Hermite 插值 为 : -二 24+ 订 ， 


在 [1,3] 上 的 3 次 Hermite 插值 为 : -+ 元 2- xt 机 


863 3 
一 == = 


在 [3,5] 上 的 3 次 Hermite 插值 为 : -ex + j6900 Xt 676。 


一 一 一 分 段 插值 多 项 式 


3.8 1/(1 十 x^2) 及 其 6 节点 的 3 次 Hermite 插值 的 图 像 


再 取 10 等 分 节点 一 5, 一 4, 一 3, 一 2, 一 1,0,1,2,3,4,5, 并 分 别 求 得 在 节点 处 的 函数 值 
y 和 一 阶 导 数值 ms ,代入 程序 Hermit3p, 即 得 11 节点 的 分 段 三 次 Hermite 插值 多 项 式 。 
建立 如 下 脚本 文件 ,并存 为 ex3 5_ 2. m。 
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0.2 


0.15 


0.1 


0 一 一 一 
-5 一 了 -3 -2 一 1 0 1 2 3 4 5 


3.9 曲线 f(z) 与 6 节点 分 段 插值 多 项 式 的 误差 


ff=inline('1./(1+x.^2) '); 

df=inline(' (-2.* x)./(1+x.^2) .~2'); sff 的 导数 

x2= linspace(- 5,95,11); 

y2= ff (x2); 

m2= df (x2) ; 

Hermit3p (x2, y2,m?) s 求 分 段 插值 多 项 式 

Xxx=— 5:0.05:5; s 取 一 组 数据 

yy2= Hermit3p (x2, y2,m2, xx); s 计 算 分 段 插值 多 项 式 在 xx 处 的 值 
a a s 画 f(x)=1/ (1+x^2) 的 图 像 
hold on 

DIot G2 .9920 Eo" 2 WW =="}s 

hold off 

legend (' 限 数 f(x)',' 插 值 节点 ',' 分 段 插值 多 项 式 '); 

figure 

yy= ff (xx); 

plot (xx, yy— yyY2, 'rI—— '); 


在 命令 窗口 执行 ex3_5_2, 则 有 如 下 结果 和 图 像 ( 图 3.10、 图 3.11)。 


>> EXE 


在 [-5,-4] 上 的 3 次 Hermite 插 值 为 :一 全 - 吉 + 二 和 闻 + et 


97682 了 48841” 48841 


77 521 504 4633 
eo 1 rs hp ptr pp 
在 [-4,-3] 上 的 3 次 Hermite 插 值 为 14450* 7225* 1445” 7225 


i 
在 [-3,-2] 上 的 3 次 Hermite 插值 为 :二 x+ Se pt 


.3 3, 112, 6 ,33 
在 [-2,-1] 上 的 3 次 Hermite 插值 为 :二 x+ Se a + 5" 


在 [-1,0] 上 的 3 次 Hermite 插 值 为 :+ 1, 


在 [0,1] 上 的 3 次 Hermite 插值 为 :+ 和 
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在 [1,2] 上 的 3 次 Hermite 插值 为 :二 有 + 和 及- 人 33 


25" 
. 1 时 18 
在 [2,3] 上 的 3 次 Hermite 插值 为 :- 一 + 一 -一 xt1， 
50 村 25 
77 pa 504 4633 
i :一 一 一 节 二 一 一 逐一 一 一 x+ 一 一 ， 
在 [3,4] 上 的 3 次 Hermite 插值 为 a A act ee 


a 113 ， 9000 . 20841 
4 5 Hermit 插值 为 :- 一 -一 + 一 一 x a o 
在 [4,5] 上 的 3 次 Hermite 97682” 3757 48841 48841 


3.11 曲线 f(z) 与 11 节点 分 段 插值 多 项 式 的 误差 


插值 多 项 式 与 被 插值 男 数 的 误差 一 般 随 着 节点 的 增加 而 减少 , 且 分 段 插 值 多 项 式 没 有 
大 幅 振 荡 现 象 。 
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35 二 次 样 条 搬 值 函数 


用 困 数 y= 二 f(z) 的 NN 十 1 个 节点 《ziyyi) ,其 中 zo 二 Xi 三 … 二 Xn ,y= 二 f(xi),k==0， 
1,…,N, 求 出 三 次 样 条 插值 阴 数 ,其 方法 如 下 : 
在 每 个 小 区 间 [ x ,zs+1] 上 ,三 次 样 条 插值 滑 数 可 表示 为 
S(X) = Si(z) = so si(TO— Ti) si (TO— TX) sa (TO— XT)’, (C3...1) 


或 
JEM mh 
SE Gh Tut i 6h. 二 + 人 6 ju 证 
十 ( 装 — |e—a). (3. 2) 
hs; 6 
S; (xX) 的 系数 Sk,j 由 下 列 公 式 计 算 
h;, (2m, 十 : ) = 
Sk,0 = VE, Sk,l -一 d, ee SK 2 -一 区 SK .3 二 ee (3. 3) 


式 中 h; = z+1 Ny ON 772 由 下 述 方程 组 确定 


hm 二 2( 十 大)72 十 站 = ww ,其 中 = 6(qd; 一 di),k=1,2,.… ,NO—1。 

〈《 关 ) 
方程 组 (* ) 中 的 未 知 数 是 mi ,共有 N 十 1 个 ,但 方程 组 (* ) 中 只 有 N 一 1 个 方程 ,要 想 求解 
方程 组 ,还 需要 两 个 条 件 。 剩 余 的 两 个 条 件 一 般 由 边界 提供 , 芝 见 的 边界 条 件 有 如 下 几 类 。 

(1) 紧 压 样 条 (或 严格 和 斜率 样 条 ) (clamped 或 complete): 已 知 两 端点 的 一 阶 导 数 
全 

(2) 端点 曲率 调整 样 条 (end-point curvatrue-adjusted): 已 知 两 端点 的 二 阶 导 数 
S (zo),S (zn) ,特殊 地 ,S (zo) 二 S (xn)= 二 0, 称 之 为 自然 边界 条 件 (natural)。 

(3) 非 节 点 样 条 (notaknot) : 采用 使 第 一 个 与 第 二 个 三 次 多 项 式 的 三 阶 导 数 相 等 ,最 后 
一 个 与 倒数 第 二 个 三 次 多 项 式 的 三 阶 导 数 相 等 作为 约束 条 件 , 即 

SEC 

(4) 周期 样 条 (periodic) : 当 y=z) 是 以 (zw 一 zo) 为 周期 的 周期 图 数 时 ,要 求 SCz) 也 

是 以 (zn 一 zo) 为 周期 的 周期 消 数 ,此 时 的 边界 条 件 为 
S (xzo 十 0) 一 SCzN 一 0)，S (xzo 十 0) 一 SCzN 一 0)。 


3S1 紧 压 样 条 插值 函数 

1. 功能 

给 定 函 数 >= F(z) 的 N 十 1 个 节点 zo 过 zi 三 … 过 xw ,及 相应 的 限 数 值 y== FCze)(R 一 
0,1,…,N), 求 出 紧 压 三 次 样 条 插值 函数 。 

2. 计算 方法 


利用 已 知 两 端点 的 一 阶 导 数 S (zu),S (zn), 写 出 mo 一 六 (da 一 S (zo 省 — 3 ,mn 一 一 
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3 / 一 
天 一 (SCzw) 一 dv) 一 一 ,而 ma ,ms，… ,mn-1 的 值 由 下 面 的 方程 组 确定 。 
N—1 
(2 十 2hi je 十 him2s 一 2 一 3(d — S (xo)),， 
hi;_1m1 十 20CA li 十 hy ) ms 十 hm — 2， k=2,3,.…,N—2, 《二 
hN_2mN_» 二 (Zhw: 可 hn J 一 UN-1 一 3(S (zn) dN_1 让 
3. 使 用 说 明 


splinterl] (x,y,t) 或 S= splinterl (x,y,t) 
splinterl (x,y,t,N) 


Z 为 插值 节点 [zi ,xs，… ,zj,y 为 插值 节点 处 的 图 数值 Lyw ,ys ,… ,yj (yj; 二 f(x;)) 或 
[dz ,yi,yz，…yydzj], 其 中 dzri= 广 (zi),dz 一 三 (zs) 是 边界 条 件 , 如 果 不 输入 dzi， 
dz,, 则 默认 dzi1 = 二 了 (x1)==0,dzx,= 二 f(x,)= 二 0。 

t 为 符号 或 一 组 数值 ,如果 上 是 符号 变量 (用 syms t 定义 ), 则 给 出 关于 + 的 分 段 三 次 样 
条 插值 多 项 式 ; 如 果 t 是 一 组 数值 , 则 返回 在 t 处 的 插值 。 

N( 可 选项 ) 一 插值 浮 数 的 系数 输出 形式 为 分 数 , 如 果 系 数 要 以 小 数 形式 输出 , 需 给 出 精 
度 位 数 N。 

4. MATLAB 程序 


function S= splinterl] (x,y,t,N) 
s 本 程序 中 使 用 的 是 与 (3.4) 等 价 的 方程 组 ,详细 讨论 参见 [3]P216- 222 和 [4]P139- 144; 
n= length (和 X) 
if n<3,error(' 至少 需要 3 个 节点 ， ')end 
if any (diff (x)< 0) 
[x,ind]= sort (x); 
else 
ind= 1:n; 
end 
=X{) cae=diff (x}e 
if all (dx)==0,error(' 自 变量 的 数据 应 互 不 相同 ') ,end 
[yd, yn]= size (y); 
if yn==1 
yn= yd; y= reshape(y,1,yn); yd=1; 
end 
if yn==n 
clamp= 1; 
elseif yn==n+2 
clamp= 0; endslopes=y(:, [1] nt+2]).'; yl(:,[l1 nt+2])= []; 
else 
error(' 输 入 的 数据 的 维 数 必须 相同 ') 
end 
yi=y(:,ind).'; dd= ones (1,yd); 
dx= diff (x); divdif=diff(yi)./dx(:,dd); 
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a= zeros(l1,n-1); c=a; C= Zeros (1,n 一 1) ， 
a(l:n-2)=dx(l1:n-—2)./(dx(l1:n- 2)+dx(2:n- 1)); 
c(2:n-1)=dx(2:n-—1)./(dx(l:n- 2)+dx(2:n- 1)); 
Ql(2:n-1)=6x (divdif (2:n—1)—-divdif(l1:n-2))./(dx(2:n-—1)+dx(l1:n- 2)); 
a(n—-1)=1; c(1)=1; 
if clamp 
d(1)=6* (yi(2)- yi(1))/ (dx(1) ”2); 
d(n)=6x (yi(n-1)- yi(n))/(dx(n-1)°”2); 
else 
d(1)=6x* ((yi(2)- yi(1))/dx(1)-endslopes (1))/dx(1); 
d(n)=6x (endslopes (2)- (yi (n)—- yi(n-1))/dx(n-1))/dx(n- 1); 
end 
b(l:n)=2; 
d=tridi (a,b,c,qd); 
if isnumeric(t)== 
m= length (t); pp= 0; 
for k= 1:m 
for i=1:n—1 
if(t(k)<=x(i+1))&(t(k)>=x(i)) 
pp(k)=d(i)* (x(i+1)-t(k)) “3/(6* dx(i))+d(i+1) * (t(k)-x(i))*3/(6* dx (i)) 
+ (y(i)—-d(i) ¥* dx(i)^2/6) * (x(i+1)-—t(k))/dx(i)+ (y(i+1)-d(i+1) * dx(i)^2/ 
6) * (t(k)—x(i))/dx(i); 
end 
end 
S= pp; 
end 
elseif (isnumeric(t)+1==1)& (nargin== 3) 
for i=1:n—1 
pp(i)=d(i)* (x(i+1)-—t)°3/(6¥ dx(i))+d(i+1)* (t-x(i)) 3/(6* dx(i))+ (y(i)— (da(i) 
* dx(i)”2)/6€) * (x(i+1)-t)/dx(i)+ (y(i+1)- (d(i+1) * dx(i)”’2)/6) * (t-x(i))/dx(i); 
pp (1)= simplify (pp (1)); 
fprintf('In [sg ,%g]\n',x(i),x(i+1)); 
fprintf('S ($d)=",i); pretty (pp (i)); 
end 
else 
digits (N) ; 
for i=1:n—1 
easdi* Gt 3/(0vadr( ta0rll® tt- "3/0 dr(i)}T (yrY(i)= tai) 
关 dx (i)”2)/6) * (x(i+1)-t)/dx(i)+ (y(i+1)- (d(i+1) * dx(i)”2)/6) * (t-x(i))/dx(i); 
PP (i)= simplify (pp (1)); 
vpa (pp (i)); s 用 vpa 使 上 述 三 条 命令 转化 为 小 数 形式 
fprintf('In [sg ,%g]\n',x(i),x(i+1)); 
fprintf('S(%d)= "',i); pretty (ans) ; 
end 


end 
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function d=tridi (ab,cyd) 
n= length (d); 
c(1)=c(1)/b(1); 
for j=2:n-—1 
c(j)=c(j)/(b()-a(j-1) * c(j-1)); 
end 
d(1)=d(1)/b(1); 
for j=2:n 
d(j)= (d(j)-a(j-1)*d(j-1))/(b(j)-a(j-1)*c(j-1)); 
end 
for j= (n—1):—-1:1 
d(j)=d(j)-c()* d(j+1); 


end 


例 者 " 对 负数 y= 二 Xe ™ , 取 节 点 5 ,5,6 ,并 分 别 取 堆 斜率 边界 条 件 (zero slope 


end conditions) y (0) 二 0,y (6) 二 0 和 严格 斜率 边界 条 件 y (0) 二 1,y (6) = 


一 (0. 


01239376088, 求 满足 边界 条 件 的 三 次 样 条 插值 负数 。 
解 ” 建 立 如 下 脚本 文件 , 存 为 ex3_6_1.m。 


x= [0,1,2,3,4,,6]; 
fx=inline('x.* exp(—-x)'); y= fx(x); 


yy= [0,y, 0]; s 将 两 个 一 阶 导 数值 分 别 放 在 Y 的 两 端 

syms 七 

splinterl (x,yy,t, 10); s 注 意 在 MATLAB\File\Set Path 中 设置 文件 SP1Linterl .m 所 在 路 径 
Xx= 0:0.05:6; yyl= splinterl (x,yy, Xx); s 在 xxz 处 的 插值 

fplot (fx, [- 0.1,6]); 

hold on 


Blotlz vy o's zx Vl EF== "3 


legend (' 函 数 xx exp(-x)',' 插 值 节 点 ',' 零 斜率 样 条 插值 '); 
在 MATLAB 命令 窗口 执行 ex3_6_1 后 , 即 得 如 下 结果 和 图 像 ( 图 3. 12) 。 


>>ex3 0 1 

In [0,1] 

S(1)=-0.4809498620t?+ 0.8488293032t*- 0.555110 *t, 

In [1,2] 

S (2)=0.2420023878t” -1.320027446t +2.168856749t- 0.7229522498， 

Ti 2 3 

S(3)=-0.04607186005t?+ 0.4084180409t -1.288034225t+ 1.581641733， 
In [3,4] 

S(4)=0.01159625087t?- 0.1105949574t*+0.2690047699t+ 0.02460273825， 
In [4,5] 

S(5)=-0.008998026269t3+ 0.1365363683t2- 0.7195205328t+ 1.342636475, 
Tn 全] 

S(6)=0.0088625623838t?- 0.1278183833t?+ 0.6022532253t- 0.8603197882。 


利用 程序 splinterl ,同样 可 求 得 严格 和 斜率 边界 条 件 的 三 次 样 条 插值 函数 。 建 立 如 下 肚 


NZ 
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立 数 x*exp( 二 x) 
D， 播 值 节点 
一 一 一 和 零 斜 率 样 条 播 值 


本 文件 , 存 为 ex3_6_2。 


z= [0,1,2,3,4,5,6]; 

fx=inline('x. * exp(—x)"'); 

y= fx (x); 

yl= [1,y,— 0.01239376088]; s 将 两 个 一 阶 导数 值 分 别 放 在 y 的 两 端 
syms 七 ” 

splinterll(xyylt, 10) 2 s 注 意 在 MATLAB\File\Set Path 中 设置 文件 splinterl .m 所 在 路 径 
Xx= 0:0.05:6; 

yy2= splinterl (x, yl],xx); $s 在 xx 处 的 插值 

fplot (fx, [- 0.1,6]); 

hold on 

plot (x,y, "ko' ,xx, yy2, "rT—— "'); 


legend(' 力 数 xx exp(-zx)',' 插 值 节点 ',' 严 格 斜 率 样 条 插值 '); 
在 MATLAB 命令 窗口 执行 ex3_6_2 后 , 即 得 如 下 结果 和 图 像 ( 图 3. 13) 。 


er HZ 

In [0,1] 

S(1)=0.2511173095t’”— 0.8832378683t*+t+0.185037210 *， 

In [1,2] 

Ss (2)=0.04580087335t’”- 0.2672885599t*+0.3840506916t+ 0.2053164361， 

In [2,3] 

S(3)=0.006667026323t” -0.03248547776t* - 0.08555547270t+ 0.5183872123， 
In [3,4] 

S(4)=-0.003157780149t "+ 0.0559377804%t“- 0.3508252475t+ 0.7836569871， 
In [4,5] 

S(5)=- 0.002720788558xs+ 0.05069388139x2: - 0.3298496511x+ 0.7556895252， 
In [5,6] 

S(6)=-0.001729295985t + 0.03582149280t- - 0.2554877081t+ 0.6317529537。 
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冰 类 x*exp(-x) 
”插值 节点 


-一 -严格 斜率 样 条 插值 


3. 19 
可 见 严格 斜率 样 条 插值 多 项 式 与 原 困 数 的 一 致 性 较 好 。 
3S2 端点 曲率 调整 样 条 插值 函数 


1. 功能 
给 定 函 数 y= 二 f(z) 的 N 十 1 个 节点 zo 二 zi 三 … 二 xn， 及 相应 的 函数 值 yi 二 f(x) (CR 一 
0,1,…,NN), 求 出 满足 端点 曲率 调整 边界 条 件 的 样 条 插值 负数 。 


2. 计算 方法 
已 知 两 端点 的 二 阶 导数 mo 二 S (zo) ,mx 一 S (CzN) ;而 mm ,ms，… ,mn-1 的 值 由 下 面 的 方 
程 组 确定 。 
2(ho th mt hm = uO— hoS’ (Czo)， 
heimei 二 2Chei 二 hi mhmea = us k= 2,3,.…,N—2, (3..5) 
hn_smaN_s + 2Chns + hni mn = un — hniS (xnN)。 
3. 使 用 说 明 


splinter2 (x,y,t) 或 splinter2 (x,y,t,N) 


Zz 为 插值 节点 [zi ,xs，… ,Xj ,yy 为 插值 节点 处 的 图 数值 Lv ,ys，… ,yj (vy; 二 f(z;)) 或 
[ddzi ,wm yy yasddz, |], 其 中 ddzi 二 了 广 (x1) ,ddz, 二 了 六 (xz,) ,是 端点 曲率 调整 边界 条 件 ， 
如 果 不 输 入 ddzi ,ddz; ; 则 默认 ddzi1 二 了 (x1)= 二 0,ddz,= 二 了 f(x,) 二 0。 

t 为 符号 或 一 组 数值 ,如果 /上 是 符号 变量 (用 syms t 定义 ), 则 给 出 关于 1 的 分 段 三 次 样 
条 插值 多 项 式 ; 如 果 t 是 一 组 数值 , 则 返回 在 1 处 的 插值 。 

N( 可 选项 )- 插 值 隐 数 的 系数 输出 形式 为 分 数 , 如 果 系 数 要 以 小 数 形式 输出 , 需 给 出 精 
度 位 数 N。 

4. MATLAB 程序 


function output= splinter2 (x,y,t,N) 


s 本 程序 中 使 用 的 是 与 (3.5) 式 等 价 的 方程 组 ,详细 讨论 参见 [3]P216- 222 和 [4]P139- 144。 


第 3 草 


n= length (和 X) 
了 
error (' 至 少 需 要 3 个 节点 '); 
end 
if any (diff (x)< 0), 
[x,ind]= sort (x); 
else 
ind= 1 :n; 
end 


[yd, yn]= size (y); 


if yn==1 

yn= yd; y= reshape (y,1l,yn); yd=1; 
end 
if yn==n 


aknot= 1; 
elseif yn==n+2 
aknot= 0; endslopes=y(:, [1 nt+2])."'; 
y(:r, [1 nt 2])= []; 
else 
error(' 输 入 的 数据 的 维 数 必须 相同 ') 
end 
x=X(:); dx=diff (x); dy=diff(y); 
if n== 
w(l1:3)= 0; 
if length(y)==5 
w(1)=y(1); 
w(3)=Y(5) 7 
end 
u=6x (dy(2)/dx(2)- dy(1)/dx(1))/(dx(1)+dx(2)); 
w(2)= (u- (dx(1)/(dx(1)+dx(2))) * w(1)-— (dx(2)/ (dx(2)+dx(1))) * w(3))/2; 
end 
s 当 只 有 三 个 节点 时 需要 用 此 计算 w. 
if all (dx)==0, 
error(' 自 变量 的 数据 应 互 不 相 ')， 


end 


[yd, yn]= size (y); 


yn= yd; y= reshape (y,1,yn); yd=1; s 如 果 y 是 列 向 量 ,将 其 转化 为 行 回 量 


end 

yi=y(:,ind).'; dd= ones (1, yqd); 

dx= diff (x); divdif=diff (yi)./dx(:,dd); 

f= zeros (2,n- 2); g= zeros(l1,n- 2); 

f(2:n-2)=dx(2:n-— 2)./(dx(2:n- 2)+dx(3:n- 1)); 

g(l:n-2)=dx(2:n- 1)./(dx(l:n- 2)+dx (2:n- 1)); 

hl(2:n-1)=6x (divdif (2:n—1)—-divdif(l1:n-2))./(dx(2:n-—1)+dx(l1:n- 2)); 


消 数 的 插值 
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if ~aknot 
h(2)=h(2)- (dx (1)/(dx(1)+dx(2))) * endslopes (1) ; 
h(n-1)=h(n- 1)-g(n-2) * endslopes (2) ; 
end 
if n== 
f=w; 
else 
b(l:n- 2)=2; 
a(ll:n- 3)=f(2:n- 2)，; 
c(l:n- 3)=g (1l:n- 3); 
d(l:n-2)=h(2:n- 1); 
d=tridi (a,b,c,d); s 追 赶 法 求解 方程 组 , 见 3.5.1 节 
f= zeros (1,n); 
f(2:n-1)=d(l:n- 2); 
end 
if~aknot 
f(1)=endslopes (1); 
f(n)=endslopes (2); 
end 
if isnumeric(t)== 
m= length (七 ) ; 
for k= 1:m 
for i=1:n—1 
if(t(k)<=x(i+1))&(t(k)>=x(i)) 
pp(k)=£(i)x (x(i+1)-t(k))*3/(6x* dx(i))+f(i+1) * (t(k)-x(i)) 3/(6* dx (i)) 
+ (y(i)—-£(i)¥* dx(i)^2/6) * (x(i+1)-—t(k))/dx(i)+ (y(i+1)-£(i+1) * dx(i)^2/ 
6) 关 (t(k)—x(i))/dx(i); 
end 
end 
output= pp; 
end 
elseif (isnumeric(t)+1==1)& (nargin== 3) 
for i=1:n—1 
pp (i)=£(i)* (x(i+1)—t)° 3/(6% dx(i))+f(it+1) < (t—x(i)) 3/(6% dx (i))+ (y(i)—£(i)* 
dx(i)”2/6) * (x(i+1)-t)/dx(i)+ (y(i+1)-f(i+1)* dx(i)”2/6) * (t-x(i))/dx(i); 
pp (1)= simplify (pp (1)); 
fprintf('"In [sg ,%g]\n',x(i),x(i+1)); 
fprintf('s (sd)= vi); pretty (pp (i)); 
end 
else 
digits (N) ; 
for i=1:n—1 
pp (i)=£(i)* (x(i+t1)—t)°3/(6% dx(i))+f(it+1) < (t—x(i)) 3/(6% dx(i))+ (y(i)— £(i)* 
Gx (i)^2/6) < (x(i+1)-—t)/dx(i)+ (y(i+1)-£(i+1) ¥ dx(i)^2/6) < (t—-x(i))/dx(i); 
PP (i)= simplify (pp (i)); 
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vpa (PP (1) ) ; 

fprintf('In [Sg ,%g]\n',x(i),x(it+1)); 

fprintf('S(%d)= "',i); pretty (ans); 
end 


end 


例 3.7 对 函数 v= 王 ze 于 , 取 节 点 0,1,2,3,4,5,6, 并 分 别 取 自然 边界 条 件 Cnatural) 
y (0) 二 0,y (6) 王 0 和 端点 曲率 调整 边界 条 件 y (0) 王 一 2,y (6) 王 0. 009915 , 求 满足 边界 
条 件 的 三 次 样 条 插值 函数 。 

解 ”建立 如 下 脚本 文件 , 存 为 ex3_7. m。 


x= [0,1,2,3,4,5,6]; 


fx= inline('x. * exp(—x)"'); 


y= fx (x); 

yl= [0,y,0 ]; s 将 两 个 二 阶 导 数值 分 别 放 在 y 的 两 端 
syms 七 ” 

splinter2 (x,yl,t,10); gs 上 自然 边界 条 件 的 样 条 插值 

y2= [-2,y,0.009915 ]; s 将 两 个 二 阶 导 数值 分 别 放 在 y 的 两 端 
splinter2 (x,y2,t,10); s 端 点 曲率 调整 边界 条 件 的 样 条 插值 
xx= 0:0.05:6; 

yyl= splinter2 (x, yl1,xx); s 上 自然 边界 条 件 的 样 条 在 xx 处 的 插值 
YY2= splinter2 (x, y2, xx); s 端 点 曲率 调整 边界 条 件 的 样 条 在 xx 处 的 插值 
fplot (fx, [- 0.1,6]); 

hold on 


plot (xx, yyl, 'r—— ", Xx,yyY2, 'k-— 。) ; 

legend (' 图 数 xx exp(-x)"',' 自 然 样 条 ', ' 端 点 曲率 调整 样 条 '); 

hold off 

figure 

yy= fx (xx); 

plot (xx, yy— yyl, 'r-—— ', Xx,yy- yy2, 'b'); 

legend ("函数 xx exp(-x) 与 自然 样 条 的 差 ',' 函 数 xx exp(-x) 与 端点 曲率 调整 样 条 的 差 '); 


在 MATLAB 命令 窗口 执行 ex3_7 后 , 即 得 如 下 结果 和 图 像 ( 图 3.14、 图 3. 15)。 


In [0,1] 

S (1)=-0.1221807921t?+ 0.4900602332t，, 

In [1,2] 

S(2)=0.1458156444t- - 0.8039893094t +1.294049543t- 0.2679964365, 

nn 2 

S (3)=- 0.02009395637t + 0.1914682953t-- 0.6968656668t+ 1.059280370， 

In [3,4] 

S(4)=0.003871379585t-  - 0.02421972833t* -0.04980159586t+ 0.4122162989， 
In [4,5] 

S(5)=-0.004076444796t + 0.07115416424t“- 0.4312971661t+ 0.9208770593, 
到 


S(6)=- 0.003335830766t + 0.06004495378t-- 0.3757511139t+ 0.8283003054。 


以 上 为 自然 边界 条 件 的 样 条 插值 函数 。 下 面 是 端点 曲率 调整 边界 条 件 的 样 条 插值 函数 。 
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In [0,1] 

S(1)=0.3004666620t’”—t*+1.067412779t, 

Tl 

S (2)=0.03257837411t-  - 0.1963351363t + 0.2637479155t+ 0.2678882879， 

Tn 23 

S(3)=0.01020767076t - 0.06211091623t - 0.004700524676t+ 0.4468539147， 
In [3,4] 

S(4)=-0.004097858663t?+ 0.06663884859%t-- 0.3909498191t+ 0.8331032091， 
In [4,5] 

S(5)=-0.002501118941t + 0.04747797193t“- 0.3143063125t+ 0.7309118669， 
Tn [5781 


S (6)=- 0.001667895937x’;+0.03497962686x* -0.251814587]x+ 0.6267589913。 


0.5 
一 一 一 国 数 x*exp 人 0 
一 一 一 自然 样 条 


0.4 一 一 -端点 曲率 调整 样 条 


0.3 
0.2 


0.1 


0.1 


一 一 一 国 数 x*exp( 与 自然 样 条 的 差 
一 一 一 国 数 xexp( 与 端点 曲率 调整 样 条 的 差 
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0.06 


0.04 


-0.04 
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3. 15 
可 见 端点 曲率 调整 样 条 插值 多 项 式 与 原田 数 的 一 致 性 较 好 。 
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3S3G 韭 节 点 样 条 插值 函数 


1. 功能 

给 定 限 数 y 二 f(z) 的 N 十 1 个 节点 zo 二 三 … 二 zxn， 及 相应 的 函数 值 y4 二 f(xi)(k 二 
0,1,…,NN), 求 出 满足 非 节 点 (notaknot) 边 界 条 件 的 三 次 样 条 插值 负数 。 

2. 计算 方法 


已 知 SY (zo) 二 SY (xz),S%_s (zn_s)= 二 SY%_i(zxw_1), 可 转化 为 mo 二 mm 一 全 一 ， 
-1 
hn-i(mNn-i—mN-2) 2 
my =m 二 一 而 mm2z，*… ,mn-1 的 值 由 下 面 的 方程 组 确定 。 
N-—2 
hs h? 
3ho 十 2 十 一 ma 十 |ihi 一 一 |ms = ui， 
hi hi 
hime1 十 2(hel 十 hi) me 十 hemperi — Uk, k = pA -A C3 6) 


2 2 
Ce At mw 十 (2hw 二 3A -1 二 At jn =— UN-loeo 
几 N-? AN-? 
3. 使 用 说 明 


splinter3 (x,y,t,N); 


Z 为 捅 值 节点 Lzi ,zz，……zoj,y 为 插值 节点 处 的 函数 值 [y1 yz，*… ,yj(yj; 二 f(z;))。 + 
为 符号 或 一 组 数值 ,如果 上 是 符号 变量 (用 syms t 定义 ), 则 给 出 关于 tz 的 分 段 三 次 样 条 插值 
多 项 式 ;如果 + 是 一 组 数值 , 则 返回 在 t 处 的 插值 。 

N( 可 选项 ) 一 插值 也 数 的 系数 输出 形式 为 分 数 ,如 果 系 数 要 以 小 数 形式 输出 , 需 给 出 精 
度 位 数 N。 

注 : 非 节 点 (notaknot) 边 界 条 件 : 采用 使 第 一 个 与 第 二 个 三 次 多 项 式 的 三 阶 导 数 相等 ， 
最 后 一 个 与 倒数 第 二 个 三 次 多 项 式 的 三 阶 导 数 相等 作为 约束 条 件 。 增 加 三 阶 导 数 连续 后 ， 
说 明 两 个 相 邻 的 样 条 片段 变 成 了 相同 的 三 次 多 项 式 , 此 时 的 这 个 内 部 节点 (Ziyzo-1) 就 不 是 
两 个 不 同 三 阶 多 项 式 的 分 界 点 。 因 此 ,它们 不 再 是 真正 的 节点 ,这 就 是 名 称 “ 非 节点 ”边界 条 
件 的 由 来 。 

4. MATLAB 程序 


function S= splinter3 (x,y,t,N) 
n= length (x); 
If n< 3 
error (' 至 少 需要 3 个 节点 ') 
end 
if any (diff (x)< 0) 
[x,ind|]= sort (x); 
else 
ind= 1:n; 
end 
x=Xx{)z dz= diff {x} 
if all (dx)==0 


a 


72》 ”常用 数值 算法 及 其 MATLAB 实 现 


error(' 自 变量 的 数据 应 互 不 相同 ') 
end 
[yd, yn]= size (y); 
if yn== 

yn= yd; y= reshape(y,1l,yn); yd=1; 


end 
if yn~=n 

error(' 输 入 的 数据 的 维 数 必须 相同 ') 
end 


yi=y(:,ind).'; dd= ones (1,yd); 
dx= diff (x); divdif=diff(yi)./dx(:,dd); 
a= Zeros (1,n- 2); c= zeros (1,n- 2); 
d(l:n-2)=6x diff (divdif); 
if n== 
d(1)=d(1)/(3* (dx(1)+dx(2))); 
d(2)=d(1); d(3)=d(1); 
else 
a(l:n—3)=dx(2:n-—2); c(l:n- 3)= dx (2:n- 2); 
bl(l:n-2)=2x (dx(l1:n-—2)+dx(2:n- 1)); 
a{(n—3)=dx(n—2})-dx(n-— 1}) 2/dx(n—2); 
c(1)=dx (2)-— dx (1)^2/dx (2); 
b(1)=b(1)+dx(1)+dx(1)^2/dx (2); 
b(n-2)=b(n-2)+dx(n-1)+dx(n-1)^2/dx(n- 2); 
d(2:n- 1)=tridi (a,b,c,d); s 追 赶 法 求解 方程 组 , 见 3.5.1 节 
d(1)=d(2)- dx(1) * (d(3)-d(2))/dx(2); 
dn)=d{m-D+dtm DD* m= 1)=adm 2 )/dr(tn-2); 
end 
if isnumeric(t)== 
m= length (t); 
pp= 0; 
for k=1:m 
for i=1:n—1 
if(t(k)<=x(i+1))&(t(k)>=x(i)) 
pp(k)=d(i)* (x(i+1)-t(k))*3/(6x* dx(i))+d(i+1) * (t(k)-x(i))”3/(6* dx (i)) 
+ (y(i)-d(i) x* dx(i)”2/6) * (x(i+1)-—t(k))/dx(i)+ (y(i+1)-d(i+1) * dx (i) 2/ 
6) * (t(k)-x(i))/dx(i); 
end 
end 
S= pp; 
end 
elseif (isnumeric(t)+1==1)& (nargin== 3) 
for T= 1n=1 
pp(i)=d(i)* (x(i+1)-t) 3/(6x* dx(i))+d(i+1)* (t-x(i))*3/(6x* dx(i))+ (y(i)- (d 
(i) 关 dx(i)”2)/6) * (x(i+1)-t)/dx(i)+ (y(i+1)- (d(i+1) * dx(i)”2)/6) * (t-x(i))/dx 
( 工 ) ; 
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PP (I)=Simplify(PP (i)); 
OOEETL TI | 和 AR 人 
fprintf("S($%d)= ",i); pretty (PP (i)); 
end 
else 
digits (N); 
for i=1:n—1 
pp(i)=d(i)* (x(i+1)—t)°3/(6% dx(i))+d(i+1) 关 (t—-x(i))’3/(6¥% dx(i))+ (y(i)— (d (i) 
x dx(i)^2)/6) * (x(i+1)-—t)/dx(i)+ (yY(i+1)- (d(i+1) < dx (i)^2)/6) < (t—-x(i))/dx(i); 
PP(1)= simplify (pp (1)); 
vpa (pp (i)); s 用 vpa 使 上 述 三 条 命令 转化 为 小 数 形式 
fprintf ('In [%®g ,%g]\n',x(i),x(it+1)); 
fprintf('S(%d)= "',i); pretty (ans); 
end 


end 


例 3.8 对 函数 y= 二 xe, 取 节点 0,1,2,3,4,5,6, 求 满足 非 节 点 边界 条 件 的 三 次 样 条 
插值 函数 。 并 将 本 例 、 例 3.6 及 例 3.7 中 所 求 的 各 种 边界 条 件 的 样 条 困 数 与 图 数 > 一 ze 
比较 ,哪个 样 条 插值 与 > 一 ze“ 的 一 致 性 最 好 ? 

解 ”建立 如 下 脚本 文件 , 存 为 ex3_8. m。 

z= [0,1,2,3,4,5,6]; 

fx=inline('x.* exp(—x)'); y= fx(x); 

yl= [0,y,0]; 


y2= [1,y,- 0.01239376088]; s 将 两 个 一 阶 导 数值 分 别 放 在 y 的 两 端 
y3= [~ 2,y,0.009915 ]; s 将 两 个 二 阶 导数 值 分 别 放 在 y 的 两 端 
syms 七 ” 

splinter3 (x,y,t,10); s 韭 节点 边界 条 件 的 样 条 插值 

Xxx= 0:0.05:6; yyl= splinterl (x,yl,xx); s 零 斜率 样 条 在 xx 处 的 插值 

yy2= splinterl (x, y2, xx); $s 严格 斜率 样 条 在 xzx 处 的 插值 

yy3= splinter2 (x,yl,xx); $$ 自 然 边 界 条 件 的 样 条 在 xx 处 的 插值 
yy4= splinter2 (x, y3, xx); s 端 点 曲率 调整 边界 条 件 的 样 条 在 xx 处 的 插值 
yy5= splinter3 (x, y, xx) ; s 非 节点 边界 条 件 的 样 条 在 xx 处 的 插值 
fplot (fx, [- 0.1,6]); 

hold on 


Plot (xe yD P=" 

legend (' 函 数 xx exp(-zx)"',' 非 节点 样 条 '); 

hold off 

figure 

yy= fx (xx); 

plot (xx, yy— yyl, 'I-—— ', XxX,yy- YYy2, 'b- .' ,XX,yy- YY3, 'm: ', XX, yyY- YY4, 'C', Xx, yy- YY 'g.'); 
legend(' 力 数 xx exp (-x) 与 零 斜 率 样 条 的 差 … "图 数 xx exp(- zx) 与 严格 斜率 样 条 的 差 ',…: 

' 困 数 xx exp(-x) 与 自然 样 条 的 差 ',' 函 数 xx exp(-x) 与 端点 曲率 调整 样 条 的 差 ',' 函 数 xx exp (-zx) 
与 非 节 点 样 条 的 差 '); 


在 MATLAB 命令 窗口 执行 ex3_8 后 , 即 得 非 节 点 样 条 插值 负数 和 图 像 ( 图 3. 16)。 


74> ”常用 数值 算法 及 其 MATLAB 实 现 


In [0,1] 

S(1)=0.08918324083t - 0.5000938804t*+0.7787900808t，, 

In [1,2] 

S (2)=0.08918324083t”- 0.5000938804t +0.7787900808t， 

In [2,3] 

S(3)=- 0.004928374938t + 0.06457581417t-- 0.3505493084t+ 0.7528929261， 
In [3,4] 

S(4)=-0.0001585425845t "+ 0.02164732299t -0.2217638349t+ 0.6241074526, 
In [4,5] 

S (5)=- 0.003122337556t»+0.05721286265t* - 0.3640259935t+ 0.8137903308， 
In [9,6] 


S(6)=—0. 003122337556t”+ 0.05721286265t* -0.3640259935t+ 0.8137903308。 
0.5 
一 国 数 x*expfg 
一 一 一 非 节 点 样 条 
0 并 
0.3 


0.2 


一 一 一 国 数 x*exp(0 与 零 斜 率 样 条 的 差 
一 一- 国 数 x*exp( 与 严格 斜率 样 条 的 差 
国 数 x*exp(29 与 自然 样 条 的 差 
冰 数 x*exp(-;) 与 端点 曲率 调整 样 条 的 差 
国 数 x*expfi9 与 非 节 点 样 条 的 差 


加 “3.17 
由 图 3. 17 可 见 严 格 和 斜率 样 条 与 原 图 数 的 一 致 性 最 好 , 零 斜 率 样 条 与 原 图 数 的 误差 
最 大 。 
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例 3.9 观测 得 函数 FGz) 在 某 些 点 的 图 数值 为 f(0)==0,f(1)==16,f(4)= 二 22,f(5) 二 
56, 786) 一 74, 以 及 广 (0)= 王 3, 广 (6) 王 1 ,分 别 求 FGz) 的 满足 严格 斜率 边界 条 件 和 有 目 然 边界 
条 件 的 三 次 样 条 插值 函数 S; (z),S,(z) 及 f(2.3),f(5.5) 的 近似 值 。 

解 ”建立 如 下 脚本 文件 , 存 为 ex3_9. m。 


x0= [2.3,5.5]; xl1= [0,1,4 ,5,6]; 


yl1= [3,0,16,22,56,74,1]; s 将 两 个 一 阶 导 数值 分 别 放 在 yl 的 两 端 
yll= [ 0,16,22,56,74]; syms x; 

splinterl (xl, yl]1,x); s 严格 斜率 边界 条 件 的 样 条 插值 函数 
splinter2 (xl1, yl11, x); gs 自然 边界 条 件 的 样 条 插值 函数 

y00= splinter] (xl, yl,x0) s 严格 斜率 边界 条 件 的 样 条 在 x0 处 的 插值 
Y01= splinter?2 (X1L,Y1L1,X0) s 上 自然 边界 条 件 的 样 条 在 x0 处 的 插值 

Xx= 0:0.05:6; 

yyl= splinterl (xl1, yl, xx); s 严 格 斜 率 样 条 在 xx 处 的 插值 

yy2= splinter2 (x1, yl11, xx); gs 自然 边界 条 件 的 样 条 在 xx 处 的 插值 


ELEGOEKET yll ho Xx VY TE —— "XX Vy Ds 


legend (' 节 点 ',' 严 格 斜率 样 条 ', ' 自 然 样 条 '); 
在 MATLAB 命令 窗口 执行 ex3_9 后 , 即 得 如 下 结果 和 图 像 (图 3. 18)。 


In [0,1] 
S (1)= 3x+ i (3. 7a) 
3” 2 
In [1,4] 
__166,175 1672,71,; 
S (2)= oC 二 x + I (3.7b) 
In [4,5] 
S (3)= 906- 635x+ ee (3.7c) 
In [5,6] 
S(4)=— 94- 35x+ 二 (3.7d) 


以 上 为 严格 斜率 边界 条 件 的 样 条 插值 函数 。 由 此 样 条 求 得 1(2.3),f(5.5) 的 近似 值 分 别 为 
16.47594444444445, 68.93750000000000。 
下 面 是 自然 边界 条 件 的 样 条 插值 函数 。 由 此 样 条 求 得 1(2.3),f(5.5) 的 近似 值 分 别 为 


13.02009748427673 67.08372641509433。 


In [0,1] 

2129 433， 
SI 06™ 106"* 
In [1,4] 

1196 4521 1196 。 1093 ， 
3(2)=- 59+ 106* 53*+ 318X， 
In [4,5] 

51228 72919 8484 。 1249 ， 
= 一 -一 -一 一 -x+ 一 一 2- 一 一 
5 全 = 一 06 zt 53 7 106™” 


In [>,6] 
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63647 ， 64931 ”5301 D89 3 
-== X— Xx +——x 


S (4)=- 
gi 53 106 ” 53° 106 


由 图 3. 18 可 见 , 同 一 组 数据 不 同 的 边界 条 件 求 出 的 三 次 样 插值 函数 还 是 有 不 小 的 差别 的 。 


80 
O ”节点 


| 一 一 -严格 斜率 样 条 
一 一 自然 样 条 


60 
50 
40 
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1. 功能 
给 定 困 数 y= 二 f(z) 的 N 十 1 个 节点 zo 二 zi 三 … 二 xn ,及 相应 的 函数 值 y= 二 f(x) (k= 
0,1,…,N), 求 出 满足 周期 边界 条 件 时 的 三 次 样 条 插值 图 数 。 
2. 计算 方法 
已 知 SCz 十 0) 王 SCzNv 一 0),S (zi 十 0) 王 SCzN 一 0) , 即 mo =my。 而 mo ym ;ms ，…， 
mn-1 的 值 ,由 下 面 的 方程 组 确定 。 
2(ho 二 hn)mo 十 homi 二 hn-imNn-! = 6(do 一 CN-1)， 


hy_im 1 十 2(hei 十 hi) ma 十 hem pri 一 Up, k= 1,2,°.…,N—2, (3.8) 
hnimo 十 hn_zmN-z + 2 hnz tt hn mMN1 = MKWN-1。 

3. 使 用 说 明 

splinter4 (x,y,t,m) 


Z 为 捅 值 节点 Lzi ,xs，… ,Xj ,y 为 插值 节点 处 的 函数 值 Ly: ,yz ,yj(yj; 二 f(x;))。 1 
为 符号 或 一 组 数值 ,如果 t 是 符号 变量 (用 syms t 定义 ) , 则 给 出 关于 + 的 分 段 三 次 样 条 插值 
多 项 式 ;如果 +t 是 一 组 数值 , 则 返回 在 t 处 的 插值 。 

N( 可 选项 ) 一 插值 妇 数 的 系数 输出 形式 为 分 数 , 如 果 系 数 要 以 小 数 形式 输出 , 需 给 出 精 
度 位 数 N。 

注 : 使 用 本 程序 的 计算 结果 与 调用 Spline(xvals,yvals,x,endpoints 一 'periodic') 的 结果 
相同 。 

4. MATLAB 程序 
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function output= splinter4 (x, y,t,N) 
s 本 程序 中 使 用 的 是 与 (3.8) 等 价 的 方程 组 ,详细 讨论 参见 [3]P216- 222 和 [4]P139- 144; 
n= length (x); 
1 
error (' 至 少 需 要 3 个 节点 ') 
end 
if any (diff (x)< 0) 
[x,ind]= sort (x); 
else 
ingd= 1:n; 
end 
=X{s)s dxff {zys 
if all (dx)== 
error(' 自 变量 的 数据 应 互 不 相同 ') 
end 
[yd, yn]= size (y); 
if yn== 
yn= yd; y= reshape (y,1,yn); yd=1; s 如 果 y 是 列 向 量 , 将 其 转化 为 行 向 量 
end 
if length (x)~ = length (y) 
error(' 输 入 的 数据 的 维 数 必须 相同 ') 
end 
yi=y(:,ind).'; dd= ones (1,yd); 
dx= diff (x); divdif=diff(yi)./dx(:,dd); 
a= zeros (1,n— 1); 
c=a; C= Zeros (1l,n- 1); 
a(l:n-2)=dx(l1:n-2)./(dx(l1:n- 2)+dx(2:n- 1)); 
c(l:n-2)=dx(2:n-—1)./(dx(l:n- 2)+dx(2:n- 1)); 
d(l:n-2)=6*% (divdif (2:n-1)-divdif (lil:n-2)) ./ (dx (2:n-1)+dx/(1:n- 2)); 
a(n-1)=dx(n-1)/(dzx(1)+dx(n- 1)); 
c(n-1)=dx(1)/(dx(1)+dx(n- 1)); 
d(n-1)=6x ((yi(2)-yi(1))/dx(1)- (yi(n)-yi(n-1))/dx(n-1))/(dx(1)+dx(n-1)); 
b(l:n-1)=2; 
if n==3 
£f(1)= (12x (divdif(1)—- divdif(2))—-6x* (divdif(2)— divdif(1)))/(3* (dx(1)+dx(2))) 
f(2)= (12x (divdif(2)- divdif(1))-—-6x* (divdif(1)— divdif(2)))/(3* (dx(1)+dx(2))) 
工 (3)= 工 (1) 7 
else 
d= trididigg (a,b,c,qd); 
f(2:n)=d(l:n— 1); 
f(1)=d(n— 1); 
end 
if isnumeric(t)== 
m= length (t); 
for k=1:m 
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end 


for i=1:n—1 
if(t(k)<=x(i+1))&(t(k)>=x(i)) 
pp(k)=£(i)x* (x(i+1)-t(k)) 3/(6x* dx(i))+f(i+1) * (t(k)-x(i)) 3/(6* dx (i)) 
+ (y(i)-£(i) x* dx(i)’2/6) * (x(i+1)-—t(k))/dx(i)+ (y(i+1)-£f(i+1) * dx (i)”2/ 
6) * (t(k)—x(i))/dx(i); 
end 
end 


output= pp; 


elseif (isnumeric(t)+1==1)& (nargin== 3) 


for i=1:n—1 


end 


else 


end 


pp(i)=£(i)* (x(i+1)-t)^3/(6x* dx(i))+f(i+1) * (t-x(i))^3/(6x* dx(i))+ (y(i)- £(i)* 
dx(i)^2/6) * (x(i+1)-t)/dx(i)+ (y(i+1)—-f(i+1) * dx(i)^2/6) < (t-x(i))/dx(i); 
PP(i)= simplify (pp (i)); 

fprintf('In [%g ,%g]\n',x(i),x(i+1)); 

fprintf('S(%d)= ",i); 

pretty (PP (i)); 


digits (N) ; 


for i=1:n—1 


end 


pp (i)=£(i)* (x(it+1)—t)°3/(6% dx(i))+f£f(i+1) * (t—x(i)) 3/(6% dx (i))+ (y(i)—£(i)* 
dx(i)^2/6) * (x(i+1)-—t)/dx(i)+ (y(i+1)—-f(i+1) * dx(i)^2/6) < (t-x(i))/dx(i); 

PP (i)= simplify (pp (i)); 

sym2poly (pp (i)); 

ans= sym(ans, 'd'); 

poly2sym(ans,t); 

Forintf(" In [Vg ,Sn Et x(t+1))s 

fprintf('S(%d)= ",i); 

pretty (ans); 


function d=trididigg (a,b,c,qd) 


n= length (d); 
f(l1:n-1)=0; 
g(l1:n-2)=0; 
A= 


for i=2:n—1 


f(i)=b{li}-aG) 660G-D/G=1; 


end 


g(l:n-2)=c(l1:n-2) ./f(l:n-2); 


uU=f;: s=f: 


u(1)=a(l)/f£(1); 


for i=2:n—2 


u(i)=-a(i) * u(i-1)/f(i); 
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end 
u(n-1)= (c(n—1)-al(n-1) *x u(n-2))/f(n-1); 
s(1)=c(n); 
for i=2:n-—2 
= 
end 
s(n-1)=a(n)— s(n-2) * g(n- 2); 
f(n)=b(n)- sum(s(l:n-2).*u(l:n-2))-s(n-1) * ul(n-1); 
d(1)=d(1)/f£(1); 
for i=2:n—1 
d{i)= (d(i)-—a(i)* d(i—1))/f£ (i); 
end 
d(n)= (d(n)-sum(s(1:n-2) .* d(l:n-2))-s(n-1)* d(n—1))/f(n); 
d(n-1)=d(n-1)-u(n-1)* d(n); 
GE 一 二 
d=d(-gqD*aqautD -ua dy 


end 


例 3.10 求 经 过 点 (0,0),(1,5),(2, 一 1),(3,0) 的 三 次 周期 样 条 。 
解 ”建立 如 下 脚本 文件 , 存 为 ex3_10. m。 


xl= |0; 1 ,2 3: 

yl= [0,5,—- 1,0]; 

syms x; 

splinter4 (xl1, yl],x); s 周期 边界 条 件 的 样 条 


在 MATLAB 命令 窗口 执行 ex3_10 后 ,得 如 下 结果 。 


In [0,1] 
S(1)=- 5x3+ 4x: + 6x, 

In [1,2] 

S(2)= 6x’ — 29x + 39x- 11, 
In [2,3] 

S(3)=—x’ +13x -45x+ 45。 


3SS MATLAB 的 内 置 三 次 样 条 插值 函数 简介 


在 MATLAB 中 ,实现 基本 的 三 次 样 条 插值 的 图 数 有 spline,csape,ppval 和 unmkpp。 

1. spline 

调用 格式 有 如 下 两 种 形式 : 

(1) yy 二 spline(x,y,xx) 利 用 三 次 样 条 插值 法 求 出 在 插值 点 zz 处 的 插值 浮 数 值 yy , 插 
值 钠 数 根据 输入 参数 xz 与 y 的 关系 得 来 。Zx 与 y 为 向 量 形式 ,而 xzx 既 可 以 为 问 量 形式 ,也 
可 以 是 标量 形式 。 此 顶 数 的 作用 等 同 于 interpl(x,y,xx,'spline')。 

(2) pp 二 spline(x,y) 返回 三 次 样 条 插值 的 分 段 多 项 式 的 向 量 形式 ,可 以 使 用 困 数 
ppval 来 进行 插值 计算 。 

注 : spline(…) 中 使 用 的 是 非 节点 (mot-a-knot) 的 边界 条 件 。 
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例 二 11 令 ZZ 一 [0,1,2,3,4,5,6],yy 一 sin(Czz) ,利用 spline 求 在 be | = | 作 Dod: Is 


3. 1,5. 8 处 的 插值 。 
解 在 MATLAB 命令 窗口 输入 如 下 命令 : 
>>xXxx=0:6°: 
yy= sin (xx); 


= [0 Lo daliodls 
yl= spline (xx, yy, Xx1) 
回 车 执行 后 有 
yl=0.50192261258]115 0.987608221337]2 0.04151227346595 一 0.48679244158033 
或 输入 如 下 命令 
>>pp= spline (xx, yy) 
Pp= form: 'pp" 
breaks:[01234956] 
coefs: [6x4 doublel] 


pieces:6 
order:4 


dim:1 


>>y2=ppval (pp, x1) 


y2= 0.50192261258115 0.98760822133712 0.04151227346595 一 0.48679244158033 


可 见 , 与 第 一 种 调用 方式 求 得 的 结果 相同 。 


2. csape 


调用 格式 有 如 下 两 种 形式 : 


PP= Csape (x, y) 


PP= csape (x, y, conds) 


返回 不 同 边 界 条 件 的 三 次 样 条 插值 的 分 段 多 项 式 的 向 量 形式 ,可 以 使 用 也 数 ppval 来 
进行 插值 计算 。conds 可 以 是 字符 串 'complete' or 'clamped', 'not-a-knot','periodic', 'second', 
variational' 中 之 一 ,不 输入 conds 时 ,默认 为 "complete'。 这 些 字符 串 表 示 了 不 同 的 边界 条 
件 ,具体 含义 如 下 (参见 本 节 的 开头 ): 


'complete' or 'clamped': 给 定 端点 的 一 阶 导数 , 即 紧 压 样 条 (两 个 一 阶 导数 分 放 在 y 的 两 端 ) 


'not—a- knot " : 非 节 点 边界 条 件 

"second ' : 给 定 端点 的 二 阶 导数 , 即 端点 曲率 调整 样 条 (两 个 二 阶 导数 分 放 在 y 的 
两 端 ) 

"variational': 自然 样 条 (端点 的 二 阶 导数 为 0) 

"Periodic ' : 周期 样 条 


(也 可 用 pp 二 csape(x,y,conds,valconds) 调用 形式 ,conds: ' 边 界 类 型 含义 同上 ,valconds: 
边界 条 件 值 , 这 与 第 二 种 调用 方式 的 结果 相同 。) 

例 3.12 观测 得 函数 FGz) 在 某 些 点 的 图 数值 为 1(0) 二 0,f(1) 二 16,f(4) 二 22,f(5) 王 
56, 6) 一 74, 以 及 (0) 二 3, 了 (6)= 二 1, 求 f(x) 的 三 次 样 条 插值 阴 数 SCz) 。 

解 在 MATLAB 命令 窗口 输入 如 下 命令 : 


第 3 章 函数 的 插值 


>>xl1= [0,1,4 ,5,6] 
>>yl= [3,0,16,22,56,74,1] 
pp= csape (xl1,yl, 'completed') 
回 车 执行 后 有 
PE 一 
form: "PP 
breaks:[0 1456] 
coefs: [4x4 double] 
pieces:4 
order:4 
dim:1 
上 述 给 定 的 三 次 样 条 pp 形式 ,存储 了 节点 和 多 项 式 系数 ,以 及 关于 三 次 样 条 表示 的 其 
他 信息 。 因 为 ,所 有 信息 都 被 存储 在 单个 向 量 里 ,所 以 这 种 形式 在 MATLAB 中 是 一 种 方便 
的 数据 结构 。 当 要 计算 三 次 样 条 表示 时 ,必须 把 pp 形式 分 解 成 它 的 各 个 表示 段 。 在 
MATLAB 中 ,通过 子 数 unmkpp 完成 这 一 过 程 。 运 用 上 述 pp 形式 ,该 阴 数 给 出 如 下 结果 : 


> > [breaks, coefs, 1,k,d]= unmkpp (pp) 


breaks= 
0 1 4 5 6 

coefs= 
-29/2 55/2 3 0 
71/18 -16 29/2 16 
= 0 站 区 Py 
-5/2 -12 65/2 56 

JI=4, 了 4, 开 1 

下 面 是 各 参数 的 含义 : 


这 里 breaks 是 节点 ( 即 X1) ,coefs 是 矩阵 , 它 的 第 i 行 是 第 i 段 三 次 多 项 式 的 系数 $i,3， 
Si,2 9 sil ,Si0( 人 参见 (3. 1) 式 ),/ 是 多 项 式 的 数目 ,上 是 每 个 多 项 式 系 数 的 数目 d 是 维 数 。 例 


如 ,coefs 中 的 第 二 行 系数 表达 的 多 项 式 为 : (zx—1) "10 1 十字 (x 一 1) 十 16, 它 与 


例 3.9 中 求 出 的 (严格 斜率 样 条 ) 第 二 段 多 项 式 S(2) 一 一 十 -x 一 zx? 十 人 Ex? 是 相同 


的 。coefs 中 的 第 三 行 系数 表达 的 多 项 式 为 : 一 守 (z 一 4 ?十字 (x 一 和? 十 25(zx 一 和 十 22, 它 


与 例 3.9 中 求 出 的 (严格 斜率 样 条 ) 第 三 段 多 项 式 S(3) 一 906 一 635z 十 人 一 全 了 是 相 
同 的 。 
下 述 命令 画 出 本 例 中 所 求 的 三 次 样 条 插值 隐 数 SCz) 的 图 像 。 


> >XX]= [0:0.05:6]; 

>>yyl=ppval (pp, xx1); 

>>y2=y1 (2:6); 

DELoE (rl v2 bo , xxl vl 一 工 ) 


h= legend (' 插 值 节点 ',' 紧 压 样 条 插值 '); 
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set (h); 
计算 结果 与 例 3. 9 相同 , 见 图 3. 19。 
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© 插值 节点 
紧 压 样 条 揪 值 
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3.19 


注 : 例 3.9 与 例 3.12 的 数据 相同 , 例 3.9 中 得 到 的 分 段 三 次 样 条 插值 多 项 式 (3.7) 与 
例 3. 12 中 得 到 的 分 段 三 次 样 条 插值 多 项 式 (3.9) 实 际 上 是 相同 的 多 项 式 , 即 执行 splinterl 
(zlyyiyZ) 与 pp 一 csape(Czi yyiycompleted) ,breaks,coefs,1,k,dj 王 unmkppCpp) 的 结果 相 
同 , 只 是 它们 的 表达 形式 不 同 ( 参 见 (3.1) 式 、(3.2) 式 )。 


的 数 的 j 


近 


pk A 
En 


对 区 间 La,oj 上 的 连续 函数 f(x) ,用 简单 的 图 数 p(xz) 近 似 代 蔡 Fz) 就 是 图 数 通 近 要 
研究 的 问题 。z(z) 可 取 为 多 项 式 ` 有 理 图 数 或 三 角 图 数 。 可 用 连续 男 数 空间 Cla,b5] 上 的 
不 同 的 范 数 来 度量 通 近 误差 ,常用 的 有 2- 范 数 和 ce- 范 数 ( 最 大 范 数 ) ,其 对 应 的 通 近 分 别称 
为 最 佳 平方 通 近 和 最 佳 一 臻 逼近 。 


41 最 佳 一 致 通 近 多 项 式 


各 连续 盟 数 f(x) 在 [a,65] 上 的 n 次 最 佳 一 致 通 近 多 项 式 为 户 (z) 一 ao 十 az 二 az 妇 十 … 十 
axz", 则 存在 n 十 2 个 交叉 点 组 {zx} 满足 f(x) 一 plzi)= 二 (一 1)*op, 其 中 o== 土 1,k==0,1,…， 
nt1,p— max | f(r)—p (zx)|= | f(r)—p, (xz) | ~。 

1. 功能 

用 Remez 算法 求 F(Gz) 在 La,o] 上 的 浆 次 最 佳 一 致 通 近 多 项 式 。 

2. Remez 算法 

(1) 给 出 n 十 2 个 初始 偏差 点 a 三 zo 二 zi 过 … 过 xsi 三 6 ,通常 取 n 十 1 次 切 比 雪夫 多 项 


式 的 偏差 点 = 训 (5tat (ba eos ee ,k=0,1, tl 解 n 十 2 个 未 知 数 


1 十 ] 
ao sa1，"… sans 的 线性 方程 组 
ao 十 qzs 十 azXt 十 十 anzt 一 f(x) = 二 (1)E, k=0,l,…,n 二 1。 (4.1) 

(2) 求 n 十 2 个 新 的 偏差 点 a 三 zo 过 zi 二 … 二 z+ 三 6 ,要 求 p, (zi) 一 f(z) 正 负 交 错 , 且 
pr (zx) 一 扩 (zi) 二 0,k 二 1,2,…,n, 也 可 包括 zo ,zs+1。 如 上 式 只 有 个 点 成 立 , 则 可 取 zo = 
ayzn+l 一 0 。 在 某 些 点 z; 上 满足 ‖f 一 p, ==1p, (Gz) 一 f(z)|。 

(3) 根据 切 比 雪夫 定理 和 偏差 点 {zx} 的 性 质 , 有 mm 二 min|p, (zi) 一 fz.)| 三 上 f 一 p, | 
三 M 二 max|p, (zi) 一 f(zi)|。 若 M/m 三 1.05, 则 p, (zx) 即 为 所 求 。 否 则 ,用 {zx} 代 蔡 {x } 
转 回 第 一 步 继 续 迭 代 。 

参见 文献 L12j]P233 一 237。 
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3. 使 用 说 明 


remezpoly (fun, funder,a,b,n) 


第 一 个 参数 fun 为 一 元 田 数 ,第 二 个 参数 funder 为 fun 的 导数 ,第 三 个 参数 a 为 区 间 左 
端点 ,第 四 个 参数 0 为 区 间 右 端点 ,第 五 个 参数 7 为 一 臻 逼近 多 项 式 的 次 数 。 
4. MATLAB 程序 


function P= remezpoly (fun, funder,a,b,n) 


powers=ones (n+ 2,1) * ([0:n]); 


coeffE= (—1).^[l:nt+2]; 


CoeffE= coeffE(:); sE 的 系数 取 为 列 癌 量 
t=1:n; 

和 s 用 于 多 项 式 求 导 
for k=0:nt+1 


end 


x0 (k+ 1)= (b+ a+ (b-a) * cos ( (n+ 1-K) < pi/ (nt+1)))/2; 


s 在 [av,b] 上 取 n+1 次 切 比 雪夫 多 项 式 的 交叉 点 组 作为 初始 点 x0 


for i=1:10 


x0= x0 (:); s 取 为 列 回 量 

hh=x0* ones (1,n+1)， 

coeff h=hh. “powers; 

M= [coeff h coeffE]; s 构 造 线性 方程 组 的 系数 矩阵 

bb= feval (fun,x0) ; s 线 性 方程 组 的 常数 向 量 

PP=M\bb;  。 鲸 解 线性 方程 组 ,前 (nt+1) 元 素 是 多 项 式 的 系数 ,最 后 一 个 元 素 是 在 这 些 点 处 的 误差 
Al= PP(l:end— 1); 


A der=PP(2:end- 1).*t; s 多 项 式 的 导数 的 系数 
z(1)=a; 
z (n+ 3)=b; 
for k=1:n+1 
z (kt+1)=findzero (@ err,x0 (kKk) ,x0 (k+ 1), fun,Al); s 误 差 图 数 的 零点 
end 


$ 在 列表 z 的 每 两 个 点 之 间 ,我 们 求 出 误差 函数 的 极 值 点 。 如 果 在 序列 z 的 两 点 之 间 存 在 极 值 点 
( 极 大 或 极 小 ), 则 误差 函数 的 导数 在 极 值 点 等 于 零 ,我 们 可 通过 求 误差 函数 的 导数 在 这 些 两 点 之 
间 的 根 , 来 求 得 极 值 点 

$ 如 果 极 值 点 不 存在 , 则 检查 误差 函数 在 z 的 这 两 点 的 函数 值 , 取 极 大 者 

for k=1:nt+2 


If sign (err(z(k),funder,A der))~=sign(err(z(k+1),funder,A der)) 


$s 检查 误差 函数 在 极 值 点 处 的 值 的 符号 变化 


xl1 (k)= findzero (@ err,z (k),z (kt+ 1),funder,A der); 
Vv (k)= abs (err (xl1 (k), fun,Al) ) ， 
else 
% 如 果 符 号 没 变化 , 则 不 存在 极 值 。 比 较 误 差 销 数 在 子 区 间 两 端点 处 的 函数 值 , 取 较 大 者 
V1l= abs (err (z (Kk) , fun,Al) ) ; 
V2= abs (err (z(k+ 1) ,fun,Al)); 
if vl>v2 


xl1 (kK)=z (K) ; 
Vv(k)=v1; 

else 
xl(k)=z (kt+1); 
VvV(k)= v2; 

end 

end 
end 


[mx ind|]=max (Vv); 


$s 在 极 值 点 序列 中 求 误差 函数 取 (绝对 ) 最 大 值 的 点 ,如 果 该 点 与 旧 序 列 相应 点 的 差 小 于 要 求 的 限 , 则 退出 


if abs (x0 (ind)— xl (ind))<2^-— 30 


break; 
end 
if ind< length (x0) & abs (x0 (ind+ 1)— xl1 (ind))<2°^-—30 
break 
end 
x0=x1; s 新 点 序列 代替 旧 序 列 
E= PP (enda) ， 


P= PP (1l:end-— 1) ， 

end 

h= (b- a) /300; 

x=a:h:b,，} 

e= err (x, fun, P); 

plot (x,e); 

xlabel ('x'); 

ylabel ('e (x)= fun (x)— P(x) '); 

title(" 用 P(x) 通 近 fun(x) 时 的 误差 函数 '); 

fprintf(' 图 数 的 sd 次 最 佳 一 臻 逼近 多 项 式 的 最 大 绝对 误差 为 \n S$g\n',n,abs (E)); 
fprintf(' 困 数 的 sd 次 最 佳 一 臻 逼 近 多 项 式 的 系数 ( 升 窘 ) 为 \n',n); 


function e=err (X fun,A) 


A=A(:); $s 多项式 系 数 数组 , 置 为 列 数组 
x=xX(:); $s 变量 数组 , 置 为 列 数组 
order= length (A)-—1; $s 多项式 的 次 数 等 于 多 项 式 的 系数 个 数 减 1 


powers= ones (length (x),1) *x [0:order]; 
temp= (x* ones (1,ordert+ 1)).^powers; 
temp= temp * A; 
e= feval (fun, x)— temp; 误差 向 量 由 肾 数 fun 在 变量 x 处 的 值 与 多 项 式 A 在 变量 x 处 的 值 的 差 给 出 
function y= findzero (fun,x0,xl],varargin) 
sfun 是 要 求 根 的 函数 ,函数 在 变量 x0,xl 处 的 符号 不 同 ,要 求 的 根 介 于 x0,xl 之 间 
Svarargin 是 其 他 变量 
f0= feval (fun,x0,varargin{:}); 
fl= feval (fun,xl,varargin{:}); 
$% 验 证 函数 在 x0,xl 处 的 不 同 号 ,否则 错误 
if sign (£0)== sign (£1) 
error(' 晴 数 在 两 点 处 的 符号 必须 相反 '); 
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end 
s 弦 截 法 求 近似 根 
x= X0-- £0 ¥* ((xl1—x0)/(f£f1- £0)); 
f= feval (fun,x,varargin{:}); 
while abs (f)> 2^- 52 
if sign(f)== sign (£0) 
XO0= x; 
f0=£; 
else 
Xl1= x; 
fl=f£; 
end 
x= X00% ((xi1-x0)/ (fi1- £0)); 
f= feval (fun,x,varargin{:}); 
end 
y™X’ 
例 4.1 求 隆 数 f(x)==e’ 在 [0,1] 上 的 3 次 最 佳 一 致 允 近 多 项 式 。 
解 在 MATLAB 命令 窗口 输入 如 下 命令 : 
> > fun= inline ('exp (x) '); 


>> remezpoly (fun, fun, 0,1,3) 


回 车 后 执行 ,屏幕 显示 结果 为 (图 像 为 图 4. 1) 


函数 的 3 次 最 佳 一 臻 逼近 多 项 式 的 最 大 绝对 误差 为 
0.000544792 


函数 的 3 次 最 佳 一 臻 逼近 多 项 式 的 系数 ( 升 帘 ) 为 


ans=0.999455208428]11] 1.01660232638655 0.42170301302331 0.27997648904918 


x 10” 用 Po 逼近 fun(0 时 的 误差 国 数 


funt)-PO) 


et 


0 0.1 02 03 04 05 06 0 08 0.9 1 


4.1 ex 与 其 3 次 最 佳 一 臻 逼近 的 误差 


例 4.2 求 困 数 F(z)=ln(1 二 z) 在 [0,1] 上 的 5 次 最 佳 一 致 通 近 多 项 式 。 
解 在 MATLAB 命令 窗口 输入 如 下 命令 : 


>>fx=inline('log (x+1)"'); 
>>fdx=inline('1/(l+x)'"'); 
> > remezpoly (fx,f£ dx,0,1,9) 


回 车 后 执行 ,屏幕 显示 结果 为 (图 像 为 图 4. 2) 


函数 的 5 次 最 佳 一 臻 逼近 多 项 式 的 最 大 绝对 误差 为 
8.6912e- 006 


函数 的 5 次 最 佳 一 臻 逼近 多 项 式 的 系数 ( 升 寡 ) 为 
ans= 0.00000869119571 0.99929958596024 -0.49074311002040 0.28670655112834 


-0.13321986289629 0.03110401638805 


即 5 次 最 佳 一 臻 逼近 多 项 式 为 
0.03110401638805x5- 0.13321986289629x*+ 0.28670655112834 邓 - 0.49074311002040zz+ 


0.99929958596024x+ 0.00000869119571。 


， 10 用 Pt 逼近 funto 时 的 误差 国 数 


0 01 02 03 04 05 06 07 08 0.9 1 


4.2 ln(1 十 z) 与 其 5 次 最 佳 一 臻 逼近 的 误差 


4P 近似 最 佳 一 致 明 近 多 项 式 


1. 功能 
求 f(z) 在 La,b] 上 的 近似 最 佳 一 致 通 近 多 项 式 p, (x)。 
2. 计算 方法 
由 切 比 雪夫 多 项 式 TiCz) 的 2 十 1 个 零点 为 节点 的 拉 格 天 日 插值 多 项 式 求 得 
ee dn 
其 中 
_ f(xo)To (rxo)t f(x yy pd pl 
n 
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n 十 1 
交 _2(f (zo) T(xo) 四 
. n 十 1 
2 ~ | | . 
= eos( 27 十 2 ， JJ) 一 ] ,2， so (4. 2) 
3. 使 用 说 明 
chebappr (fun,n,a,b) 


第 一 个 参数 fun 为 一 元 图 数 ( 目 变 量 为 zx) ,第 二 个 参数 )” 为 近似 一 臻 通 近 多 项 式 的 次 
数 , 第 三 个 参数 a 为 区 间 左 端点 ,第 四 个 参数 5 为 区 间 右 端点 ,不 输入 a,b 时 ,默认 a= 一 1， 
b 二 1 .输出 近似 最 佳 一 致 允 近 多 项 式 P, (x)。 

4. MATLAB 程序 


function chebappr (fun,n,a,b) 
if nargin== 
a=—1; b=1; 
end 
d=pi/(2x* nt+2); 
C= zeros(l,n+ 1); 
for k=1:nt+1 
X(k)=cos((2* k— 1)* dd}; 
end 
X= (b-—- a) *x X/2+ (at+ b)/2; 
xl=X; Y= feval (fun,xl1); 
for k=1:nt+1 
z= (2 关 k—-1)*d; 
for j=1:nt+1 
CO)=C()+Y(k) * cos((j-1)* 2z); 
end 
end 
C=2¥*C/(nt1); C(1)=C(1)/2; 
$ 计 算 切 比 雪 夫 多 项 式 的 系数 ,TO (zx) 的 系数 放 在 第 一 行 ,T1 (x) 的 系数 放 在 第 二 行 ……, 按 降 蜂 排列 
s 切 比 雪夫 多 项 式 :T0 (x)=1;T1 (x)=x, 递 推 关 系 
$ Tk(x)=2xT(k-1) (x)-T(k-2) (zx) 其 中 k=2,3,… 
T= zeros (n+ 1); 
T(l,nt+1)=1; T(2,n:n+1)= [1 0]; 
for k=2:n 
T(kt1l,n—-k+t1l:nt+t+1)=2x* [T(k,n— kt2:nt+ 1)0]- [0 0 T(k-1,n-kt3:nt+ 1)]; 
end 
PP= 0; 
for k=1:n+1 
PPE= PPTC(K) ¥ T(k,:)> 
end 


digits(l10}s 


syms 七 x; 

PP= poly2sym(PP,t); 

P= subs (PP,t, (2* x-a-b)/(b-a)); s 换 回 原 变 量 x 
P= expand (P) ; 

sort (P); P= vpa (P); 

disp(' 近 似 最 佳 一 臻 逼近 多 项 式 为 ") 
pretty (P); 

PP= sym2poly (P); 

Xxx=a:0.01:b; yy= feval (fun, xx); 
yyl=polyval (PP, xx); yy2= yy- YV1:， 
plot (xx, yy2, '—r'); 
legend('" 误 差 图 数 ') ; 


例 4.3 分 别 求 阴 数 f(x)==e 在 [一 1,1] 上 的 3 次 和 在 [一 3,2] 上 的 5 次 近似 最 佳 一 
臻 逼近 多 项 式 。 
解 在 MATLAB 命令 窗口 输入 如 下 命令 : 


> > fx= inline('exp (x) '); 
> > chebappr (fx, 3) 


回 车 后 执行 后 ,屏幕 显示 结果 为 (图 像 为 图 4. 3) 


近似 最 佳 一 臻 逼近 多 项 式 为 
0.1751756940 关 +0.5429007233 和 + 0.9989332280x+ 0.9946153169 
>>chebappr (fx 3,= 37;2) 


_9 
-1 -08 -06 -04 -0.2 0 02 0.4 06 0.8 1 


4.3 er 与 其 3 次 近似 盘 近 的 误差 


回 车 后 执行 后 ,屏幕 显示 结果 为 (图 像 为 图 4. 4) 


近似 最 佳 一 臻 逼近 多 项 式 为 
0.006299451374x + 0.04998335568x’+0.1823089137x +0.4878926055x +0.9817603396x+ 1.002890426 
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4.4 ee 与 其 5 次 近似 逼近 的 误差 


43 最 佳 平 万 通 近 多 项 式 


设 f(x)ECLa,bj] 及 在 内 积 空 间 CLa,65j] 的 子 集 B= span{tpoypo ,2) ,其 中 mo， 
91，"… ,9 线性 无 关 。 奇 存在 S* (x) EB 使 得 


b 
| f(x)—S* (xr) = min| pz) 一 SCz) 1? = min| oCz)C7Cz) — S(z))’*dz, 
SED SEPu a 


(4. 3) 
则 称 S* (xz) 为 f(x) 在 B 中 的 最 佳 平方 逼近 也 数 。 

特别 地 , 当 B= 二 span{1,T,… ,Xz”") 时 , 称 满 足 (4.3) 式 的 S* (zx) 为 f(z) 的 n 次 最 佳 平方 
通 近 多 项 式 。 

1. 功能 

求 fFGz) 在 La,oj 上 的 最 佳 平 方 通 近 多 项 式 p, (zx)。 

2. 计算 方法 

求解 法 方程 


> (porypi)c = (fp) (k=0,1,,n), (4. 4) 


j=0 


设 其 解 为 cf (1 一 0,1,…,72), 则 最 佳 平方 通 近 果 数 S* (x) = 六 ;好 9;， 平方 误差 


186l3= | f(r) mS Cli = | fl De (f,9,). (4.5) 
j=0 
取 $B 一 span(1,ZX,…… ,7X") ,权限 数 p(xz) 二 1, 则 


pb 
(ph ,0j ) = | xii*tdr — 


十 Al | 
pb 


a 


本本 jk =0,1,.…,n, 


b 
Cg) = | 21f Ce)dz, | 


可 得 最 佳 平 方 通 近 多 项 式 S* (x) 二 ce 十 cf 工 十 … 十 cr 。 
3. 使 用 说 明 


lesquare (fun,n,a,b) 


第 一 个 参数 fun 为 一 元 困 数 ( 目 变 量 为 z) ,用 syms xz, 将 fun 定义 为 符号 图 数 , 第 二 个 
参数 )” 为 最 佳 平 方 通 近 多 项 式 的 次 数 ,第 三 个 参数 a 为 区 间 左 端点 ,第 四 个 参数 0 为 区 间 右 


4. MATLAB 程序 


function lesquare (fun,n,a,b) 
digits (15); 
var= findsym (fun); s 找 出 图 数 fun 的 自 变量 
AA= zeros (n+ 1,n+ 1); bb= zeros (n+ 1 1) ， 
bl= zeros (n+ 1,1); b2= zeros (n+ 1 1) ， 
funl= fun/var; 
for k=1:nt+1 
for j=1:n+1 
RR(k'j)= (b^(j+k-1)-a^(k+j-1))/(ktj-1); ss 系 数 和 矩阵 
end 
funl= funl * var; 
bb (k,1)= int (funl,var,a,b); s 对 上 自 变量 var 积 分 , 求 得 方程 组 的 常数 向 量 
end 
bb2= inv (AA) * bb; s 求 解 通 近 多 项 式 的 系数 ( 升 知 ) 
bil{(l:nt1,1)=bb2 {nt1:-=1:1,1); 
pp= poly2sym(b1); pp= vpa (pp); 
qisp(' 最 佳 平方 双 近 多 项 式 为 ') 
pretty (pp); 
err= Sum (bb. * bb2); 
err= int (fun*¥ fun,var,a,b)— err; 
disp(' 平 方 误差 为 ') 
eval (err) 
Xx=a:0.01:b; yy= subs (fun, xx); 
yyl= polyval (bl, xx); 
plot (xx, yy, '—r",xx,yyl,'— .b'); 
legend (' 原 函数 ',' 最 佳 平方 逼近 多 项 式 '); 


例 4.4 求 困 数 f(x) 二 ze 在 [一 1,1] 上 的 2 次 最 佳 平 方 通 近 多 项 式 。 
解 ”建立 如 下 盟 数 文件 ,并存 为 exf4_4. m。 


function y=exf4 4(x) 
syms x; 
y=X* exp (x); 


在 MATLAB 命令 窗口 输入 


>> lesquare (exf4 4,2,—1,1) 
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回 车 后 执行 后 ,屏幕 显示 结果 为 (图 像 为 图 4. 5) 


最 佳 平方 允 近 函数 为 1.14893123087264 邓 +1.31832693390275x- 0.0150976357861047 
平方 误差 为 0.01409277808481 


3 


一 一 原 函 数 
一 .一 -最 佳 平方 逼近 多 项 式 


2.5 


一 | -0.8 -0.6 -0.4 -0.2 0 0.2 0.4 0.6 0.8 1 
4.5 xzer 及 其 2 次 最 佳 平方 和 逼 近 多 项 式 


例 4.5 求 困 数 F(Cz)= 忆 sin(Cz) 在 [一 1,3 上 4 上 的 5 次 最 佳 平 方 通 近 多 项 式 。 
解 ”用 M 文件 定义 y= 二 x*sinzx 如 下 ( 存 为 exf4 5. my) : 


function y=exf4 5 (X) 


Syms x; 


y= Sin (x) 关 和 27 
在 MATLAB 命令 窗口 输入 
>> lesquare (exf4 vv 一 1 3) 


回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 6) 。 
35 
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4.6 x sinx 及 其 5 次 最 佳 平方 通 近 多 项 式 


最 佳 平方 逼 近 多 项 式 为 
-0.00398226x5 - 0.34175635x:+0.99590865x3+0.34465048 世 -0.05831757x- 0.04683182， 
平方 误差 为 ans=0.00685479539477。 


44 用 正 区 多 项 式 作 最 佳 平 万 过 近 多 项 了 式 


求 图 数 的 最 佳 平 方 通 近 多 项 式 可 归结 为 求法 方程 (4.4) 的 解 , 当 取 B= span{1,x,，…， 
xX") ,其 法 方程 是 病态 的 。 奉 取 @=span{po ,om ,其 中 mp 是 正 交 图 数 族 ， 
则 法 方程 (4.4) 的 系数 矩阵 为 非 奇 异 对 角 阵 , 且 方 程 (4.4) 的 解 为 c 一 (Co 7 ) 一 
0,1,…,72。 因 此 ,JFGz)EcC[a,o] 的 最 佳 平方 逼近 本 数 为 


0 了 W (4.6) 
三 (pp,) 
平方 误差 : 
16l3= | Faz) 一 SCz) 1 一直 一 D9; ,09,). (4.7) 
j=0 


441 用 Legendre 多 项 式 作 最 佳 平 方 逼近 多 项 式 


1. 功能 
求 f(x)ECla,b| 的 Legendre 最 佳 平方 通 近 多 项 式 p, (x). 
2. 计算 方法 
取 [a,6j] 二 [一 1,1j,p(x) 二 1,9; 二 Pj; 是 Legendre 正 交 多 项 式 (j 二 0,1,…,n), 则 
cj 一 人 乡 十 2 f(x)P (rdr (f=0,1,.,n).。 

ee eo 

I 2 f, PP,, (4. 8) 
平方 误差 : 

1513 = eh (4.9) 


注 ; 对 一 般 区 间 [a,6], 作 变换 x 二 人 


， 则 | t:€E[—1,1 |]。 ; 


/生生 十 纪 和 ],zE[ 一 1,1。 接 上 述 方法 求 得 FCD) 在 [一 1,1] 上 的 最 佳 平方 盘 近 多 项 式 


S(D) ,再 换 回 原 变量 工 , 即 令 1 一 二 (2x 一 a 一 b), 则 


S* (zx) = s (Fr a}. (4. 10) 
b—a 


S* (zx) 即 为 f(z) 在 [a,b] 上 的 最 佳 平方 允 近 多 项 式 。 
3. 使 用 说 明 


Legepoly (fun,n,a,b) 
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第 一 个 参数 fun 为 一 元 曙 数 ( 日 变量 为 天) ,用 syms ,将 fun 定义 为 符号 图 数 , 第 二 个 
参数 n 为 最 佳 平方 允 近 多 项 式 的 次 数 , 第 三 个 参数 a 为 区 间 左 端点 ,第 四 个 参数 0 为 区 间 右 
端点 ,默认 三 一 1,0 王 1。 返 回 最 佳 平方 通 近 多 项 式 。 

4. MATLAB 程序 


function Legepoly (fun,n,a,b) 
s 用 syms z, 将 fun 定义 为 符号 函数 ,调用 直接 用 函数 名 (fun) ,不 能 用 'fun' 或 @ fun 等 形式 
digits (10) 
Syms x; 
if nargin== 
a=—1; b=1; 
end 
var= findsym (fun); s 找 出 函数 fun 的 自 变 量 
fun= subs (fun,x,var); s 将 困 数 fun 的 目 变量 换 为 x 
c(l:nt+1)=0; 
P= zeros (n+ 1); s 计 算 n 次 Legenqre 多 项 式 的 系数 ,P0 (x) 的 系数 放 在 第 一 
行 ,P1 (x) 的 系数 放 在 第 二 行 ,… , 按 降 竹 排列 
P(l,n+1)=1; 
P(2,n:nt+ 1)= [1 0]; 
for k=2:n 
P(kt1,n— ktl:nt+1)= ((2¥* (k- 1)+1) * [P(k,n— kt+2:n+1)0]- (k-1)* [0 0 P(k-1,n- kt+3:n+1)])/ 
k; 
end 
funl= subs (fun, ((b-a) * xtat+b)/2); ”% 作 变量 代 换 , 换 到 区 间 [-1,1] 上 
for k=1:nt+1] 
pp=poly2sym(P (k, :)); s 将 k-1 次 Legendre 多 项 式 的 系数 转化 为 多 项 式 pp 
c(k)=int (funl * pp,—1,1); s 对 上 自 变 量 x 积分 
c(k)=c(k) * (2¥* k-1)/2; 
end 
ppoly= 0; 
for k=1:nt+1 
ppoly=ppoly+ c(k) * P(k,:); 
end 
px= poly2sym (ppoly); 
Px= subs (px, (2* x- a-b)/ (b- a)); s 换 回 原 变量 x 
Px= expand (px); 
px= sort (px); 
Px= vpa (px); 
disp('Legendre 最 佳 平方 通 近 多 项 式 为 ') 
pretty (px); 
err= 0; 
for k=1:nt+1 
err—errt (2/ (2¥% k— 1)} 3% c(k) 2> 
end 


perr= (int (funl * funl,var,—1,1)- err) * (b-a)/2; 


disp(' 平 方 误差 为 ') 
perr= eval (perr) 
Xxx=a:0.01:b; 

yy= subs (fun, xx); 

yyYl= subs (px, xx); 

plot (xx, yy— yyl, '—b'); 
legend ('" 误 差 图 数 '); 


例 4.6 求 函 数 f(x) 二 x*1lnz 在 [1,3] 上 的 5 次 Legendre 最 佳 平 方 通 近 多 项 式 。 
解 ” 用 M 文件 定义 y= 二 x*1lnx 如 下 ( 存 为 exf4_ 6. my) : 
function y=exf4 6 (X) 


Syms x; 
y= Log (Xx) * x’2; 


在 MATLAB 命令 窗口 输入 


>> Legepoly (exf4 6,5,1,3) 


回 车 执行 即 得 如 下 结果 (图 像 为 图 4.7)。 


Legendre 最 佳 平方 通 近 多 项 式 为 
0.004717231636x -0.06958109176x’+0.5343644947x +0.2800713658zx¥ -0.9108245398x+ 0.1613561031, 


平方 误差 为 perr=1.175e- 009。 


1 1.2 1.4 1.6 1.8 F 22 24 26 2.8 3 


4.7 xz2zlnz 与 其 5 次 最 佳 平 方 逼 近 的 误差 


例 4.7 求 曙 数 7(z) 一 Smz 在 [0 00001,x] 上 的 4 次 Legendre 最 佳 平 方 通 近 多 项 式 。 
解 ”用 M 文件 定义 y= 二 sinzx/x 如 下 ( 存 为 exf4 7. m) : 


function y=exf4 7(x) 
Sy XK 
y= sin (x) /x; 


936》 常用 数值 算法 及 其 MATLAB 实 现 


在 MATLAB 命令 窗口 输入 
>> Legepoly (exf4 7,4,0.00001,pi) 
回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 8)。 


Legendre 最 佳 平方 通 近 多 项 式 为 
0.001964268223 及 + 0.02255227417 关 -0.1955516463 和 + 0.0134901888x+ 0.9985556287， 


平方 误差 为 6.441124844602797 X10 。 
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4.8 sinz/z 与 其 4 次 最 佳 平方 双 近 的 误差 


442 用 Chebyshev 多 项 式 作 最 佳 平 方 逼近 多 项 式 


1. 功能 

求 f(x)ECla,b| 的 Chebyshev 最 佳 平方 通 近 多 项 式 p(x)。 

2. 计算 方法 

取 [La ,0 三 [一 1,1j,o(Cz) 王 一- 一 ,多 一 也 是 Chebyshev 正 交 多 项 式 (j = 二 0,1,…:， 


n) ,由 
Cfy Ts) a FONT | 
Ee | de Ba = 0 ,7). 
C; CT 二 | dr (Fs n) 


于 是 , f(z) 在 [一 1,1] 上 的 Chebyshev 最 佳 平方 通 近 多 项 式 


SCz) = > DoT,, (4. 11) 

平方 误差 ， 
313 一 1713 一 (各) 一刀 要 C4. 12) 
注 ; 对 一 般 区 间 [a,5], 作 变 搁 xz 二 04z 十 全 4,zE[ 一 1,1]。 于 是 ,F(t) = 


2 2 
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/入 + 和 ,1€E[ 一 1,1]。 按 上 述 方法 求 得 F(t) 在 [一 1,1] 上 的 最 佳 平方 通 近 S(1)， 
再 换 回 原 变 量 工 , 令 /一 二 (2x 一 a 一 6), 则 
SS” (zx) = 引证 22 (4. 13) 
一 4 
S* (xX) 即 为 f(x) 在 [a,b] 上 的 Chebyshev 最 佳 平 方 通 近 多 项 式 。 
3. 使 用 说 明 
chebpoly (fun,n,a,b) 


第 一 个 参数 fun 为 一 元 邹 数 (日 变量 为 zx), 用 符号 变量 syms Xx, 将 fun 定义 为 符号 隔 
数 ;第 二 个 参数 ”为 最 佳 平 方 逼 近 多 项 式 的 次 数 ; 第 三 个 参数 a 为 区 间 左 端点 ;第 四 个 参数 
0 为 区 间 右 端点 ,默认 wa 一 一 1,% 王 1。 返 回 最 佳 平 方 通 近 多 项 式 。 

4. MATLAB 程序 


function chebpoly (fun,n,a,b) 
s 用 符号 变量 syms x, 将 fun 定 义 为 符号 函数 ,调用 直接 用 函数 名 (fun) ,不 能 用 'fun' 或 @ fun 等 形式 
四 GETLES 人 人 > 
Syms x; 
rou= sqgrt (1— x’^2); 
var= findsym (sym (fun) ); s 找 出 函数 fun 的 自 变量 
fun= subs (fun,var,x); s 将 图 数 fun 的 自 变量 换 为 习 
dd= 2/pi; 
if nargin==2 
a=—1; b=1; 
end 
c(l:nt+1)=0; 
计算 n 次 chebyshev 多 项 式 的 系数 ,TO (zx) 的 系数 放 在 第 一 行 ,T1 (zx) 的 系数 放 在 第 二 行 …, 按 降 蜂 
排列 
T= zeros (nt1); T(l,n+1)=1; 
T(2,n:nt+ 1)= [1 0]; 
for k=2:n 
T(kt1l,n— k+l:nt1)=2*¥* [T(k,n— kt+t2:nt+1)0]- [0 0 T(k-—1,n- kt 3:nt1)]; 


end 

ff= subs (fun, ((b-a) * x+ a+b)/2) ; s 作 变量 代 换 , 换 到 区 间 [-1,1] 上 

for k=1:n+1 
pp= poly2sym(T (k, :)); s 将 k- 1 次 chebyshev 多 项 式 的 系数 转化 为 多 项 式 pp 
c(k)=ddx int (ffx* pp/rou,x,—-1,1);$ 对 自 变 量 x 积分 

end 

c(1)=c(1)/2; ppoly= 0; 

for k=1:n+1 


ppoly=ppolyt c(k) * T(k, :); 
end 
px= poly2sym (ppoly); 
Pz= subs (px (2* x-a-b)/(b-a)); s 换 回 原 变量 x 
px= expand (px); 
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Px= sort (PX) ; 
Px 一 VPa (px); 
disp('Chebyshev 最 佳 平方 允 近 多 项 式 为 ') 
pretty (px); 
err= (2/dd) * c (1}) 2; 
for k=2:n+1 
err=errt (1/dd) * c (k) 2; 
end 
perr= vpa (int (ff * ff/rou,x,— 1,1)); 
perr= (perr- err) * (b-a)/2; 
disp(' 平 方 误差 为 ') 
perr 
xx=a:0.01:b; 
yy= subs (fun, xx); 
yyYl= subs (px, xx); 
plot (xx, yy— yyl, '—-b'); 
legend('" 误 差 图 数 ') ; 


例 4.8 求 困 数 f(z) 二 lnz 在 [1,3] 上 的 4 次 Chebyshev 最 佳 平 方 通 近 多 项 式 。 
解 用 M 文件 定义 图 数 f(z) 二 lnx 如 下 ( 存 为 exf4 8. my) : 


function y=exf4 8 (X) 
Syms x; 
y= 109g (x); 
在 MATLAB 命令 窗口 输入 
> > chebpoly (exf4 8,4,1,3) 


回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 9) 。 


Chebyshev 最 佳 平方 通 近 多 项 式 为 
—0.02061910457x’*+0.2162538672x -0.9256391281x +2.264744065x- 1.534026783， 
平方 误差 为 0.504X 10…。 


x 10™ 


4.9 lnz 与 其 4 次 最 佳 平方 逼近 的 误差 
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例 4.9 求 困 数 f(z) = 


一 1,1 | 上 的 7 次 Chebyshev 最 佳 平方 通 近 多 项 式 。 
解 ” 用 M 文件 定义 函数 a L 如 下 ( 存 为 exf4 9. m) : 


function y=exf4 9(x) 
syms x; y= (exp (x)— 1) /x; 


在 MATLAB 命令 窗口 输入 如 下 命令 , 回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 10) 。 


>> Chebpoly (exf4 9,7) 

Chebyshev 最 佳 平方 逼近 多 项 式 为 

0.00002542885489x + 0.0002039951763z+ 0.001388416625x 玉 + 0.008329829432x:+ 
0.04166679810x +0.1666673689x +0.4999999901x+ 0.9999999780， 

平方 误差 为 0。 


x 10™ 
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4.10 (ex 一 1)/ 人 xz 与 其 7 次 最 佳 平 方 通 近 的 误差 


45 曲线 拟 合 的 最 小 二 乘法 


45.1 线性 最 小 二 乘 拟 合 
曲线 拟 合 就 是 求 一 组 实验 数据 (zx;,yi) (i 二 0,1,…,m,yi 二 f(z;)) 的 近似 表达 式 。 
a 一 min{Xxi;} ,0 一 max{Xx;}) ,在 CLa,oj 中 选 定 线性 无 关 的 图 数 go ,gi ，,… ,9 ,在 内 积 空 间 CLa， 


bj 的 子 集 B= 二 span{ go ,pl ，… ,os} 中 寻求 图 数 S* (x) = Do; 9; (nn 二 mm) 使 得 


1 三 Se )[S* (zi) — yi] = mi Pol )[SCxi)—y], (4.14) 


i 三 0 


w(Zz) 三 0 为 权限 数 , 它 表示 不 同 点 (xz;,y;) 数 据 的 权重 。 满足 (4 14) 式 的 阴 数 S$”(z) 称 为 问 
题 的 最 小 二 乘 解 (或 称 为 离散 形式 的 最 佳 平 方 通 近 困 数 ) , 求 S* (xz) 的 方法 称 为 曲线 拟 合 的 
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最 小 二 乘法 。 
1. 功能 
用 最 小 二 乘法 求 离散 数据 的 拟 合 多 项 式 。 
2. 计算 方法 
求解 法 方程 


> (pepj)a = (fs) (k=0,1,.%,n) (4. 15) 
7 一 0 
其 中 , (pp) = Dw lr) g(r) pr), Gf) = > om (ff) = | fl; = 
i 三 0 i 三 0 


2》jw(z) (f(z;))?。, 设 其 解 为 ai (j=0,1,.,n) , 则 最 小 二 乘 拟 合 S* (x) 一 Ys 平方 
i=0 j=0 


误差 
Lal3 = Fl Da Of,9). C4.16) 
取 8B 二 span{1,X,… ,7x”"), 则 得 最 小 二 乘 拟 合 多 项 式 S* (zx) 二 as 十 a? ZX 十 … 十 a* Xx"。 
3. 使 用 说 明 


lesfit (x,y,n,%) 


第 一 个 参数 zx 为 离散 数据 的 横 坐 标 向 量 ,第 二 个 参数 y 为 离散 数据 的 纵 坐 标 向 量 , 第 
三 个 参数 n 为 最 小 二 乘 拟 合 多 项 式 的 次 数 ,第 四 个 参数 w 为 离散 数据 的 权 数 -向 量 , 默 认 
wo 一 1。 此 杖 数 的 功能 与 MATLAB 工具 箱 中 的 polyfit 相同 ,polyfit 不 齐 权 郴 数 。 

4. MATLAB 程序 


function err= lesfit (x,y,n,w) 
$s 此 函数 为 曲线 拟 合 的 最 小 二 乘法 , 拟 合 的 函数 类 的 基底 为 x; (j=0,1,…,n),w 为 权 数 (数列 )s 如 果 不 
输入 w, 则 默认 为 1 
if ~isequal (length (X) , Length (y)) 
error('x and y vectors must be the same size.') 
end 
m= length (x); 
if nargin== 
w(l:m)=1; 
end 
a= zeros (nt 1,nt+1):; 
bl(l:n+1)=0; 
for i=0:n 
for j=0:n 
t=0; 
for k=1:m 
t=t+w(k) xX x(k)^ (i+]); 
end 
a(li+1,j+1)=t; 


end 


end 
for i=0:n 
t= 0» 
for k=1:m 
t=t+w(k) 关 y(k) x x(k) i; 


end 
D(IT i= 
end 
s= Gausselimpiv(a,b,1.0e- 6); sGauss 列 主 元 素 消 元 法 ,参见 2.2 节 ,s(i) 是 xi 的 系数 - 升 寡 
了 (1L1:n+1)=0; 
T=s{(nt1:—-1:1); s 多 项 式 用 回 量 形式 表示 时 用 降 震 


xl= linspace (X(1) ,x (m)); 
yl=polyval (T,x1); 
ET 
title(" 经 验 公式 y=f(xx) 和 拟 合 曲 线 s (x) '); 
legend (' 经 验 公式 y=f(xx)',' 拟 合 曲线 s(x) '); 
c= 0; 
Syms x; 
digits (6) ; 
for j=0:n 

c=ct+s(j+1) * x^j; 
end 
c= Vpa(c); 
disp(' 拟 合 多 项 式 为 ') 
pretty (c); 
t= 0; 
for i=1:m 

t=t+w(i) *x y(i)’2; 
end 
七 ]= 0; 
for i=1:n+1 

tl=tl+s(i) * b(i); 
end 
disp(' 平 方 误差 为 ') 


err=abs (七 一 七 1) ， 


例 4.10 给 定 一 组 数据 (1,19),(2,14),(3,10),(5,6),(9,6),(12,9),(13,10),(15， 
12),(18,13),(21,12),(25,23/2),(28,11) , 求 其 3 次 .6 次 最 小 二 乘 拟 合 多 项 式 。 
解 在 MATLAB 命令 窗口 输入 


> Bi pe pe J PE Ee J bs os fp pe Pp) ad BR PE Pe PE Tt Ps i le Te fg a Ws SB 
>> lesfit (X,Y, 3) 


回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 11) 。 


最 小 二 乘 拟 合 多 项 式 为 
-0.005971752127 达 + 0.2774639422 巡 - 3.458352911x+ 19.73604938， 
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平方 误差 为 34.42462562138007。 
>> lesfit (X,Y, 6€) 


D 经验 公式 yk=flxk) 
拟 合 曲线 Stx) 


15 20 号 


图 4.11 离散 数据 及 其 3 次 拟 合 曲线 


回 车 执行 即 得 如 下 结果 (图 像 为 图 4. 12) 。 


最 小 二 乘 拟 合 多 项 式 为 
— 0.0000012340x*+ 0.0000980216x* -0.0023318454x:+0.0049322516x +0.6493317533xzx 


- 6.897801341x+ 25.20448529， 
平方 误差 为 0.30178426046950。 


O 经验 公 式 yk=flxk) 
拟 合 曲线 Stx) 
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4.12 离散 数据 及 其 6 次 拟 合 曲 线 


452 用 正 交 多 项 式 作 最 小 二 乘 拟 合 
对 于 给 定 的 点 集 {xz;}) 及 权 系 数 {w;}(i==0,1,2,*…,m) ;如果 函 数组 { 亚 ;} (j= 二 0,1,2,… 


2) 满足 


0， i 天 小， 
(Wis ) = yw (ri)W, rx) 一 | (4. 17) 


k=0 A > 0 1 二 ]， 
则 称 { 亚 ;} 关 于 点 集 {x;) 带 权 {w} 正 交 。 若 亚 ; 为 次 数 三 7 的 多 项 式 , 则 称 {Y;) 为 正 交 多 
项 式 。 


1. 功能 
用 最 小 二 乘法 求 离散 数据 的 拟 合 多 项 式 . 
2. 计算 方法 


用 已 知 点 集 {zi} 及 权 系 数 {w} (i 二 0,1,2,…,m) ,构造 带 权 {w;} 的 正 交 多 项 式 {Pi})(k 二 
Osly2 a »71) ,其 递 推 表达 式 为 


到 > Ls 
Pp, (xz) i et 
Pa) =© (TF— ou)P(tr})— BBP) (k= 1l27™ sn — 1), (4.18) 
其 中 ， 
人 Pp P ) Dy wiziP?i (x;) 
a = (k=0,l,.,n—1), (4. 19) 
(PsPi) Er 
DwiP? (xz;) 
i=0 
(P P ) Yj wiPi (x;) 
ko _ _i=0 i 
AB (P，， 二 (k le5s 7 Lp (4. 20) 


>， w;P - Lo ) 


用 正 交 多 项 式 {P,) 作 最 小 二 乘 拟 合 , 则 法 方程 (4. 15) 简 化 为 (Pt,Pe)a 一 (Po)(CR 一 0， 
1,… ,7), 其 解 为 


VPCz，) 
0 Dy si 
* (PP) ° 
' 2 w;P? (zx;) 
i 三 0 
于 是 最 小 二 乘 解 为 
P (zz) 一 Co PCz) 十 al PCzZ) 十 十 CQ PP (zx), (4.21) 
平方 误差 : 
1s13 = | 7 一 > (a )?(P,,P,). (4. 22) 
j=0 
3. 使 用 说 明 


[S,err]= lesorthfit (x,y,n,w) 


第 一 个 参数 z 为 离散 数据 的 横 坐 标 行 癌 量 , 第 二 个 参数 y 为 离散 数据 的 纵 坐 标 行 问 
量 ,第 三 个 参数 ”为 最 小 二 乘 拟 合 多 项 式 的 次 数 , 第 四 个 参数 w 为 离散 数据 的 权 数 -向 量 , 默 
认 w 王 1。 输 出 拟 合 多 项 式 的 系数 ( 降 需 )S ,平方 误差 err。 

4. MATLAB 程序 
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function [S,err]= lesorthfit (x,y,n,w) 

nx= length (x); 

if n>nx 
display(' 输 入 错误 , 拟 合 多 项 式 的 次 数 应 小 于 节点 数 ') 

end 

if nargin== 
w(l:nx)= 1; 

end 

$ 构 造 关 于 点 集 {x (k) } 带 权 w 正 交 多 项 式 

phi(l:nt1,l1:n+1)=0; 

phi (l,l1:n+1)= [zeros (1,n)1]; 

alpha= sum (Ww. * x. < polyval (phi (1,:),X) .^2) /sum(w. * polyval (phi (1, :),x).^2); 

phi (2,1:n+1)= [zeros (1,n- 1)1-alphal; 

for k=3:n+1 
alpha= sum(w. * x. * polyval (phi (k—1,:),x) .~2) /sum(w. * polyval (phi (k- 1, :) ,x) .^2); 
beta= sum(w. * polyval (phi (k— 1,:),x).^2)/sum(w. * polyval (phi (k— 2,:),x).^2); 
phi (k,n— kt+2:n+1)= [Phi(k-1,n-k+3:n+1)0]-alphax [ 0 Phi(k-1,n-k+3:n+1)]- betax [00 
phi (k—2,n— kt+ 4:nt+1)]; 

end 

S= 0; 

for k=1:nt+1 
a(k)= sum(w. *X y. * polyval (phi (k, :) ,x))/sum(w. * polyval (phi (k, :) ,x).^2); 
S=S+al(k) 关 phi (k, :); 

end 
disp(" 用 正 交 多 项 式 做 最 小 二 乘 拟 合 多 项 式 的 系数 ( 降 短 ) 为 ') 

for k=1:nt+1 
op (k)= sum(w. * polyval (phi (k, :),x) . 2) ; 

end 

err= sum(y. 2)- sum(a.’2.* op); 

xl= linspace (x (1) ,x (nx) ) ; 

yl=polyval (S,x1); 

plot (x,y, '0',xl,yl,'r'); 

legend(" 实 验 数据 (xk, yk) ', ' 拟 合 曲线 s (x) '); 


例 4.11 用 正 交 多 项 式 求 例 4. 10 所 给 数据 的 6 次 最 小 二 乘 解 。 
解 在 MATLAB 命令 窗口 输入 


>>X= [1,2,3,5 ,9,12,13,15,18,21,25,28]; Y= [19,14,10,6,6,9,10,12,13,12,11.5,11]; 
>> [P,err]= lesorthfit (X,Y, 6) 


回 车 执行 即 得 如 下 结果 (图 形 与 图 4. 12 相同 , 略 去 )。 


P=-0.00000123399638 0.00009802158928 一 0.00233184539323 0.00049322537123 
0.64933175176866 一 6.89780133599707 25.20448528756582 

即 最 小 二 乘 拟 合 多 项 式 约 为 

— 0.0000012340x’+0.0000980216x” -0.0023318454x +0.0049322537x + 0.64933175177z 
— 6.8978013360x+ 25.2044852876, 


第 4 草 ”函数 的 远近 ”05 
平方 误差 为 err= 0.30178425943359。 
与 例 4. 10 的 结果 对 比 可 知 , 用 正 交 多 项 式 作 拟 合 和 用 一 般 的 多 项 式 拟 合 的 结果 基本 相同 。 
453 非 线 性 最 小 二 乘 拟 合 举例 


有 些 人 简单 的 非 线 性 限 数 可 以 通过 线性 变换 转化 为 线性 滑 数 ( 见 表 4.1), 从 而 可 用 线性 
最 小 二 乘法 对 原始 非 线性 数据 进行 曲线 拟 合 。 


表 4.1 常见 非 线性 模型 的 线性 化 变换 


线性 变换 
W A 
借 弄 W=A+Bz 'y 
a ol 1 1 1 |a 
> b+x y a a™ . y a B B 
ax 1_ 1 .6l 1 1 到 B 
bTz y a az TX y a A A 


例 4.12 给 定 下 列 数据 


用 下 面 两 种 方法 , 求 形 如 y 二 ae” 的 最 小 二 乘 解 ,并 计算 平方 误差 。(1) 拟 合 Iny;; (2) 带 权 
值 wi 二 yi,， 拟 合 lny;。 
解 (1) 拟 合 lIny 二 ln(ae” )= 二 lna 十 bx ,建立 如 下 脚本 文件 , 存 为 ex4_12_1.m。 


X= [1.2,2.8,4.3,5.4,6.8,7.9]; Y= [7.5,16.1,38.9,67.0,146.6,266.2]; 
2= 10g (Y); 
lesorthfit (xX,2,1) 


在 MATLAB 命令 窗口 执行 ex4 12 1, 有 


>>ex4 12 1 

用 正 交 多 项 式 做 最 小 二 乘 拟 合 多 项 式 的 系数 ( 降 若 ) 为 
ans=0.53658369697104 1.33206464399736 

即 p=0.53658369697104, lna= 1.33206464399736 

所 以 原 数 据 的 拟 合 函数 为 y=3.78885796048224e"353369697104x 。 


(2) 建立 如 下 脚本 文件 , 存 为 ex4_12_2. m。 


X= [1.2,2.8,4.3,5.4,6.8,7.9]; Y= [7.5,16.1,38.9,67.0,146.6,266.2]; 
2= 10g (Y); WY; 
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lesorthfit (xX,Z2,1,W) 
在 MATLAB 命令 窗口 执行 ex4_ 12 _ 2, 有 


用 正 交 多 项 式 做 最 小 二 乘 拟 合 多 项 式 的 系数 ( 降 客 ) 为 
ans=0.54168673277569 1.30308859598374 

即 p=0.54168673277569, lna=1.30308859598374。 

所 以 带 权 值 的 拟 合 函数 为 站 =3.68064716209273e0.596867327756sx 。 


建立 如 下 脚本 文件 , 存 为 ex4_12_3. m, 执 行 后 给 出 两 种 拟 合 的 平方 误差 和 图 像 ( 图 4. 13) 。 


X= [1.2,2.8,4.3,5.4,6.8,7.9]; 

Y= [7.5,16.1,38.9,67.0,146.6,266.2]; 

yx]= inline(' 3.78885796048224 x* exp (0.53658369697104 * x) '); 
yx2= inline(' 3.68064716209273* exp (0.54168673277569* x) '); 
YYl= yxz1(X); YY2= yx2 (x); 

disp(' 拟 合 的 平方 误差 为 '); 

perrl= sum(sum( (YY1— Y) .^2, 6)) 

disp(' 带 权 值 拟 合 的 平方 误差 为 '); 

perr2= sum(sum( (YY2— Y) .^2, 6)) 

xx=1:0.05:8s 

yyYl= yx] (xx); 

yyY2= yx2 (xx); 

plot (X,Y, "ko',xx,yyl, 'r'",xx, yy2, 'b-— ",) 

legend ("离散 数据 ', ' 拟 合 曲 线 ',' 带 权 值 拟 合 曲线 ') 
>>ex4 12 3 

拟 合 的 平方 误差 为 :perrl=17.62589267800471 

带 权 值 拟 合 的 平方 误差 为 :perr2= 4.66848632131548 


一 一 一 带 权 值 拟 合 曲线 


4.13 离散 数据 及 其 拟 合 曲 线 


从 上 述 两 种 拟 合 方法 可 见 , 对 同样 的 数据 用 类 型 的 曲线 拟 合 ,市 权 值 拟 合 的 平方 误差 比 
不 带 权 值 拟 合 的 误差 小 很 多 ,所 以 选择 适当 的 权 值 是 非常 重要 的 。 


第 4 草 ”函数 的 逼近 


例 4.13 Logistic 人 口 增长 。 
当 人 口 P() 受 限于 极 值 工时 , 它 符合 Logistic 曲线 ,具有 形式 P(D) -En 利用 美 


国人 口 数据 (单位 : 百 万 ) ,求解 Logistic 曲线 P(z) ,并 估计 2010 年 的 美国 人 口 ( 设 工 一 8X 
108 ) 。 


年 1910 | 1920 roa0 | 1950 | 1960 | 1970 000 


te 10 


0 1 2 3 1 9 6 7 8 9 
P. 76.1 | 91.97 | 106.5 | 123.2 | 132.6 | 150.7 | 180.7 | 203.2 | 226.5 | 249.6 | 281.4 


解 作 线 性 变换 ,7 一 In| Cy 一 1 ]=At+InC。 在 MATLAB 命令 窗口 输入 ， 


>>tt=0:10; 

I=8*x* 10^8: 

EE=Li0d SedelUG odo LG La 0U /2US 2 2D Ad Ll 1s 
Y=1o0g (L./PP- 1); s 计 算 Y 的 值 
lesorthfit (tt,Y,1) 


回 车 执行 即 得 如 下 结果 。 


用 正 交 多 项 式 做 最 小 二 乘 拟 合 多 项 式 的 系数 ( 降 若 ) 为 
ans=- 0.12834600490111 16.11198269369098 
即 2=-0.12834600490111 ,lnC= 16.11198269369098, C= 9.939056888422987x 105, 所 以 Logistic 曲线 P 


用 它 估计 2010 年 的 美国 人 口 为 330.2814708895。 


和 
1+ 9939056.888422987e- "1233460049c " 


绘图 程序 如 下 ,其 图 像 见 图 4. 14。 


(七 ) 


tt=0:10» 
PP= [76.1,91.7,106.5,123.2,132.6,150.7,180.7,203.2,226.5,249.6,281.4]; 


拟 合 曲 线 
o 离散 数据 


300 


100 


50 


0 1 2 3 4 ? 8 对 10 1 


5 6 
时 间 


图 4.14 美国 人 口 数量 拟 合 曲 线 
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Pt= inline('" (8x* 10^8)/(1+ (9.939056888422987e+ 006) * exp (-0.12834600490111 关 七 ) ) ") 7 
Pt (11) s 佑 计 2010 年 的 人 口 数 量 

ELoc(PE2 [O7111) 

hold on 

plot({tt PP zo) 

legend(" 拟 合 曲线 …， "离散 数据 ') 

xlabel(" 时 间 '); 

ylabel (' 人 口 数量 '); 


46 Pade 有 理 通 近 


Pade 有 理 逼 近 是 以 男 数 在 ze 附近 的 需 级 数 展开 为 基础 的 ,用 有 理 式 


R (Cx 一 Po 一 z) potp(r— ro)t pr To) 十 当 十 加 (并 一 Zoo) 
机 0 GCCZz 一 0) 1+aq(z— zo) tq (zr— xo) 二 gq, (xO— zo)” 


(4. 23) 
通 近 田 数 f(x)。 在 xo 附近, 设 f(z) 的 十 n 阶 Taylor 展开 式 为 T,,,, (ZX 一 xo), 即 
Tr) ST (Td = f(zo) f(zo)(z 一 zx0) 十 刘 fr) (rz— zo) 
eee 1 (nrtn) = (nrtn) 
必 ee ps (Xo0) (XO— ZX0) 
二 qo 十 qi1(X 一 Xo) 十 qs (XT 一 ZX0)? 十 Qamn(XC 一 X00) 。 (4. 24) 
为 简化 计算 , 设 zo 二 0, 求 得 P,, (xz),Q, (zx) 的 系数 使 得 人 + (zx) 一 R,,, (zx) 二 0, 即 
而 十 而 元 十 而且 ed WR dd We ee 
十 …。 0 一 po 十 PZX 十 pox 十 … 十 pnrx”。 (4.25) 
比较 两 端 同 次 项 的 系数 ,得 线性 方程 组 
Qo po 9 
Ul 十 aogi 一 pi, 
a2 二 a1g1 二 aog; = p:， 
Um a di1 二 i dx 一 1 NY, | Da 9 (4. -A 


Quti 十 Cngl 十 十 Co 一 gr 十 CH 一 0， 
Umt2 十 amrigqi es eR 十 Qam_nt2 qn 一 0， 


dum TT Ud i un = Us 
求解 时 , 先 由 后 个 方程 解 得 gi ,gs ,q ,然后 代入 前 mm 十 1 个 方程 解 得 po , ,pv 。 最 后 ， 
在 假设 zx。 二 0 时 求 得 的 R,,, (xz) 中 ,用 xz 一 xo 代 奉 过 ,可 得 所 求 的 Pade 有 理 通 近 曙 数 。 
1. 功能 
求 函 数 的 Pade 有 理 逼 近 。 
2. 计算 方法 
求解 线性 方程 组 (4. 26) 。 


3. 使 用 说 明 
[p,q9]=padepoly (fun, x0,m,n) 


第 一 个 参数 fun 为 被 允 近 的 胃 数 (用 符号 阴 数 定义 ), 第 二 个 参数 ze 为 给 定 的 一 点 ,第 
三 个 参数 m 为 有 理 允 近 的 分 子 多 项 式 的 次 数 , 第 四 个 参数 为 有 理 允 近 的 分 母 多 项 式 的 次 
数 。 输 出 如 三 Lp ，… ,pi,poj 为 有 理 式 的 分 子 的 系数 ( 降 帘 ),g 二 Lg,，,… ,qi,go 为 有 理 式 的 
分 母 的 系数 ( 降 需 ) 。 

4. MATLAB 程序 


function [p,q]=padepoly (fun,x0,m,n) 
p= zeros (mt+ 1,1); 
d= zeros (n,1); 
a= zeros (mt n+ 1,1); 
AA= zeros (n,n); 
a(l)= subs (fun,x0); 
ff= fun; 
for k=1:mtn 
ff=diff (ff); 
a(k+1)= subs (ff,x0) /factorial (k); 
end 
if n== 
pp=al(l:mt 1); 
end 
for k=1:n 
for j=1:n 
if mt 1+k-—-j>0 
AA(k,j)=a (mt 1+k— Jj); 
end 
end 
dd(k)=—al(mt kt+1); 
end 
d= inv (AA) * dd'; 
p(1)=a(l); 
for j=2:mt+1 
ss=0; ssl= 0; 
if m>=n 
IE j<=n+1 
for k=1:j—-1 
ss=sstal(j—k) * gq(k); 
end 
PpP(j)=a(j)+ss; 
else 
for k=1:n 
ssl=ssl+a(j— k) * gq(k); 


end 
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P(O)=a(])+Ssl; 
end 
else 
for k=1:j—-1 
ss=sstal(j—k) * q(k); 
end 


Pp(J)=al(j)+ss; 


end 
end 
p= (p(mt1:-1:1))"; s 有 理 式 的 分 子 pp- 多 项 式 的 系数 ( 降 短 ) 
q (2:n+1)=q; s 有 理 式 的 分 母 qq- 多 项 式 的 系数 ( 降 客 ) 


q(1)=1; q=q'; 


例 4.14 求 y=arctanz 在 x 二 0 附近 的 Pade 有 理 通 近 R;,, (x)。 
解 ” 用 M 文件 定义 y= 二 arctanzx。 


function y=exf4 14 (x) 


syms x; 
y= atan (x); 


在 MATLAB 命令 窗口 输入 : 


>> [p,q]=padepoly (exf4 14,0,3,2) 


回 车 执行 即 得 如 下 结果 。 
p= 4/15 0 1 0,q 3/5 0 1 
即 
4 
Xt 5X 
Rs > (x)= 3 o 
lt 
绘图 程序 如 下 , 存 为 ex4_14. m。 
[p,q]=padepoly (exf4 14,0,3,2); 
XXx=—1:0.05:1; 
pv=polyval (p, xx); s 求 有 理 分 式 的 分 子 在 xx 处 的 值 
qv=polyval (q, xx); s 求 有 理 分 式 的 分 母 在 xx 处 的 值 
R=pv./qv; s 求 有 理 分 式 在 xx 处 的 值 


ff=inline('atan (x) '); 

fplot (ff, [- 1,1]) 

hold on 

plot (xx,R, 'r—— ") 

legend ("'arctanx',' 有 理 允 近 R3,2 (x) '); 
yy= ff (xx); 

figure 

plot (xx, yy— R, 'r'); 

legend ('" 误 差 图 数 ') ; 


在 MATLAB 命令 窗口 调用 ex4_14 ,屏幕 显示 图 像 如 图 4. 15 .图 4. 16 所 示 。 


0.8 


arctanx 


一 一 一 有 理 台 近 R3, 2(x) 


0.6 


0.4 


0.2 
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图 4.15 arctanz 及 其 尺 ;， 通 近 
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4.16 arctanx 与 其 R; ,逼近 的 误差 


例 4.15 求 y 二 cosz 在 xo 二 0 附近 的 Pade 有 理 允 近 R;,s (x)。 
解 ” 用 M 文件 定义 y= 二 cosz。 


function y=exf4 1 (x) 
syms x; 


y= COs (zx); 
在 MATLAB 命令 窗口 输入 : 

>> [p,q]=padepoly (exf4 15,0,3,4) 
回 车 执行 即 得 如 下 结果 。 


p= 0 - 61/150 0 1 


1 


常用 数值 算法 及 其 MATLAB 实 现 


q 1/200 0 7/75 0 1 
即 


绘图 程序 如 下 , 存 为 ex4_15. m。 


[p,q9]=padepoly (exf4 15,0,3, 4) ; 
FF 下 OO > 

pv= polyval (p, xx); 

qv=polyval (q, xx); 

R=pv./qv; 

ff= inline('cos (x) '); 

fplot (ff, [-1,1]) 

hold on 

Diot(xz Re 一 一 人) 

legend ('"cosx' "有 理 通 近 R3,4(x) '); 
yy= ff (xx); 

figure 

plot (xx, yy— R, 'r'); 
legend ('" 误 差 图 数 '); 


s 求 有 理 分 式 的 分 子 在 xx 处 的 值 
s 求 有 理 分 式 的 分 母 在 xx 处 的 值 
s 求 有 理 分 式 在 xx 处 的 值 


在 MATLAB 命令 窗口 调用 ex4_15 ,屏幕 显示 图 像 如 图 4.17、 图 4. 18 所 示 。 


—0.8 


图 4. 


-0.6 —0.4 


COSX 


一 一 一 有 理 驳 近 R3, 4(x) 
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17 cosx 及 其 R;,, 通 近 
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4.18 cosz 与 其 R;,, 副 近 的 误差 


例 4.16 求 y= 二 lnz 在 x。o= 二 1 附近 的 Pade 有 理 允 近 R;,; (x)。 
解 ” 用 M 文件 定义 y= 二 lnzx。 
function y=exf4 16(x) 
Syms x; 
y= 109g (x); 
在 MATLAB 命令 窗口 输入 : 
>> [p,q]=padepoly (exf4 16,1,3,3) 


回 车 执行 即 得 如 下 结果 。 


p= 11/60 1 1 0 
q= 1/20 3/5 3/2 1 
即 


1 
60 
Rs,3 (xX)= 


1 网 — 
二 (1)3+ 一 (1)2+ 一 和 一 
ri 


绘图 程序 如 下 , 存 为 ex4_16. m。 


[p,q]=padepoly (exf4 16,1,3,3); 
XXx= 0.5:0.05:2; 


pv=polyval (p, xx— 1); s 求 有 理 分 式 的 分 子 在 xx 处 的 值 ,注意 此 时 x0=1 
qv=polyval (q, xx- 1) ; s 求 有 理 分 式 的 分 母 在 xx 处 的 值 
R=pv./qv; s 求 有 理 分 式 在 xx 处 的 值 


ff=inline('log (x) "'); 
Tob(ff TO 
hold on 

Dot Om BR, EE—= "} 
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legend ('lnx', :有 理 通 近 R3,3(x) '); 
yy= ff (XX) 

figure 

plot (xx, yy— R, 'r'); 

legend ("误差 销 数 '); 


在 MATLAB 命令 窗口 调用 ex4 16 ,屏幕 显示 图 像 如 图 4.19、 图 4. 20 所 示 。 
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4.19 lnz 及 其 尺 :,: 逼 近 
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4.20 lnz 与 其 及:,: 通 近 的 误差 


数值 积分 


pa 


函数 的 积分 计算 可 分 为 数值 积分 和 符号 积分 两 类 方法 。 数 值 积分 是 求 积分 近似 值 的 近 
似 计算 方法 。 当 | /Cz)dz 的 被 积 函 数 /(z) 的 原 函 数 没有 解析 表达 式 或 表达 式 过 于 复杂 


而 不 适 于 计算 时 ,只 能 用 近似 求 积 的 数值 积分 方法 。 数 值 积 分 的 基本 方法 是 用 被 积 消 数 在 
有 限 个 节点 处 困 数 值 的 审 权 和 近似 积分 , 即 ， 


b nn 
| 7cmdz A Dj Af (zr2)), 4 一 TZo< Zi<… 王 Zn 一 0。 《5 1) 
k=0 


S51 复合 求 积 公式 

把 整个 积分 区 间 等 分 成 若干 个 小 区 间 ,然后 在 每 个 小 区 上 采用 同一 种 低 阶 的 求 积 公式 ， 
这 种 方法 称 为 复合 求 积 方法 。 

S.1.1 复合 梯形 公式 

1. 功能 

用 复合 梯形 公式 计算 定 积分 S = | /Cz)dz 的 近似 值 。 

2. 计算 方法 

将 积分 区 间 [a,6] n 等 分 , 步 长 一 
区 间 [ zx ,zari] 上 用 梯形 求 积 公式 ,再 求 和 得 到 积分 S 的 近似 值 T,, 即 


二 ,分 点 为 TX, 二 a 十 kh(k 二 0,1,…,n), 在 每 个 小 


?一 n—l1 
ST,= 2) fC) 十 f(zxum)) = 3 (7 十 2 >， f(r) 十 Co) | 。 (5.2) 
k=0 | 
3. 使 用 说 明 


drawcomtrzd (fun,a,b,n) 


fun 为 被 积 限 数 , 用 M 文件 (inline 函数 ) 定 义 , 其 运算 x* ,人 ^, 要 用 “. x”,“. 个 等 。a,b 为 
积分 下 上 限 ,n 为 区 间 等 分 数 , 返 回 积分 的 近似 值 ,并 绘 出 积分 图 形 。 
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4. MATLAB 程序 


function s=drawcomtrzd (fun,a,b,n) 
if a>b 
error(' 输 入 无 效 ,a 小 于 或 等 于 b') 
end 
if a==b 
s=0 
return; 
end 
if n> 256 then 
error(' 所 分 子 区 间 太 多 '); 
end 
h= (b- a) /n; 
ai=a; 
fai= feval (fun,ai); 
s= 0; 
figure; 
for i=1:n 
bi=at+ixh; 
fbi= feval (fun,bi); 
if i~=n 
s= s+ feval (fun,bi); 
end 
x= linspace (a,b,50x n); 
y= feval (fun, x); 
ls Pk el 
hold on; 
if (fai>=0)¢&(fbi>=0) 
xl= Tai bil: 
yl= [fai, fbil]; 
gg= area (xl1, yl1); 
set (gg, "FaceColor','c') 
hold on; 
elseif (fai<=0)&(fbi<=0) 
x2= [ai,bil]; 
y2= [fai, fbi]; 
gg= area (x2, y2); 
set (gg, 'FaceColor','g') 
hold on; 
else 
am= ai— fai * h/ (fbi- fai); 
if (fai>=0)&(fbi<=0) 
xl= [ai,aml]; 
yl= [fai, 0]; 
gg= area (xl1, yl1); 
set (gg, 'FaceColor','c'") 
hold on; 


x2= [am, bil]; 
y2= [0, fbi]; 
gg= area (x2, y2); 
set (gg, 'FaceColor','g') 
hold on; 
else 
x2= [ai,am]; 
y2= [fai., 0]; 
gg= area (x2, y2); 
set (gg, 'FaceColor','g') 
hold on; 
xl1= [am, bil]; 
yl= [0, fbil]; 
gg= area (xl1, y1); 
set (gg, 'FaceColor','c'") 
hold on; 
end 

end 

ai= bi; 

fai= fbi; 

end 
s=hx (feval (fun,a)+ feval (fun,b))/2+hx s; 


qisp(' 用 复合 梯形 公式 求 得 积分 近似 值 为 ') 
例 5.1 利用 复合 梯形 公式 计算 积分 S 一 | 2 十 计 z? ]dz。 
解 ” 积 分 的 精确 值 为 S 一 一 36。 在 MATLAB 命令 窗口 输入 


Le 
>> drawcomtrzd (ff,— 9,3,30) 


回 车 执行 后 ,屏幕 显示 结果 为 (图 像 为 图 5. 1) 


如 


20 


—10 -8 —b 一 4 一 2 0 2 4 


5.1 复合 梯形 公式 示意 图 
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用 复合 梯形 公式 求 得 积分 近似 值 为 
ans=— 36s。31999999999992 
1 
例 5.2 利用 复合 梯形 公式 计算 积分 S = | zerdz。 
解 ” 积 分 的 精确 值 为 S$ 一 4e ?0. 1991482735。 用 M 文件 定义 函数 zer , 存 为 exf5_ 


2 Mio 
function y=exf5 2 (x) 
yx. * exp (x); 
在 MATLAB 命令 窗口 输入 
>>drawcomtrzd('exf5 2',-3,1,60) 回 车 执行 后 得 ( 见 图 5.2) 


用 复合 梯形 公式 求 得 积分 近似 值 为 


ans= 0.20119839662103 


5.2 复合 梯形 公式 示意 图 


5S.1.2 复合 Simpson 公式 
1. 功能 
用 复合 Simpson 公式 计算 定 积分 S = | /(z)dz 的 近似 值 ， 
2. 计算 方法 
将 积分 区 间 [a,6] nn 等 分 , 步 长 一 
区 间 [zi ,zit1j 上 用 Simpson 求 积 公 式 ,再 求 和 得 到 积分 工 的 近似 值 S。, 即 


4 分 点 为 xz, 二 a 十 kh(k 二 0,1,…,n), 在 每 个 小 


| 
S~S, = ED f+4f ra) + f(x)), (5. 3) 
k=0 


1 
其 中 ”Tk 十 方 ox "Es 


3. 使 用 说 明 


comsimp (fun,a,b,n) 
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fun 为 被 积 了 负数 ,a,b 为 积分 下 上 限 ,n 为 区 间 等 分 数 , 返 回 积 分 的 近似 值 。 


4. MATLAB 程序 


function s= comsimp (fun,a,b,n) 
if n<1 
error(' 使 用 此 公式 n 不 能 小 于 1') 
end 
了 上 站 大 避 
c=a; a=b; b=c; 
end 
h= (b- a) /n; 
I= 0; 
for k=1:n 


I=I+4x feval (fun,a+ (k— 1+1/2) x h)+2x feval (fun,a+ kx h); 


end 


s= (h/6) * (feval (fun,a)+I- feval (fun,b)); 


return; 


S13 复合 Cotes 公式 


1. 功能 


用 复合 Cotes 公式 计算 定 积分 S = | far 的 近似 值 。 


2. 计算 方法 
将 积分 区 间 [a,b|n 等 分 , 步 长 几 一 


b 


4 分 点 为 Ti 二 a 十 kh(k 二 0,1,…,n), 在 每 个 小 


区 [x ,Ti+1 | 上 用 Cotes 求 积 公式 ,再 求 和 得 到 积分 I 的 近似 值 C, , 即 


S 人 


办 一 ] 1 一 ] 
十 32 > (zz) 十 14>, Crzo) 十 7f(6) | , 
k=0 R 王 1 


h h 
其 中 ，Tk 十 地 Tk 本 ?十 二 一 人 Te ”Tk 十 主 -= 


4 
3. 使 用 说 明 


comcotes (fun,a,b,n) 


n—l1 n—l1 
C, = 站 (77Co) 十 32>) F(zu) 十 12>)FCzu3) 
90 k=0 k=0 


(5. 4) 


3h 
4 oO 


fun 为 被 积 国 数 ,a,2 为 积分 下 上 限 ,n 为 区 间 等 分 数 ,返回 积分 的 近似 值 。 


4. MATLAB 程序 


function s= comcotes (fun,a,b,n) 
if n<1 


error (' 使 用 此 公式 n 不 能 小 于 1') 
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end 
if a>b 
c=a; a=b; b=c; 
end 
h= (b- a)/n; 
I=0; 
for k=1:n 
I=I+32*x* feval (fun,at+ (k- 1+1/4) *x h)+12x* feval (fun,at+ (k- 1+1/2) x h)+ 32* feval (fun,a+ 
(Kk— 1+ 3/4) * h); 
end 
for k=1:n—1 
I=I+14x feval (fun,at kx h); 
end 


s= (h/90) < (7* feval (fun,a)+I+7*x feval (fun,b)); 


例 5.3 分 别 用 复合 梯形 公式 、 复 合 Simpson 公式 和 复合 Cotes 公式 计算 积分 
= 4 z 
?= | 1 十 cs 
解 ” 积 分 的 精确 值 $= 一 广 In2~0. 21941228655874。 分 别 代 入 程序 drawcomtrzd， 


comsimp ,comcotes 计算 得 如 下 结果 。 


>>exf5 3=inline('x./(lt+cos(2x* x))'"'); 
>>drawcomtrzd (exf5 3,0,pi/4,40) 

用 复合 梯形 公式 ( 见 图 5.3) 求 得 积分 近似 值 为 
ans=0.21947880549778 

>> comsimp (exf5 3,0,pi/4,20) 

ans= 0.21941232973634 

> > comcotes (exf5 3,0,pi/4,10) 
ans=0.21941228688882 


0.8 
0.7 
0.6 
0.5 
04 
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由 此 可 见 , 在 计算 同样 多 了 兄 数值 的 情况 下 ,复合 Simpson 公式 比 复合 梯形 公式 的 精度 高 ,而 
复合 Cotes 公式 又 比 复合 Simpson 公式 的 精确 高 。 


se 变 步 长 的 求 积 公式 


用 复合 求 积 公 式 计 算 定 积分 的 近似 值 是 比较 简单 的 ,但 是 为 了 达到 精度 要 求 ,就 再 要 将 
积分 区 几 等 分 ( 即 n 取 多 大 ), 则 需要 根据 余 项 公式 事先 估计 ,这 就 要 分 析 被 积 函 数 的 高 阶 导 
数 ,而 一 般 情况 下 ,这 是 很 困难 的 。 因 此 常 采 用 变 步 长 的 求 积分 公式 , 即 根据 精度 要 求 , 让 步 
长 逐次 折 半 ,反复 利用 复合 求 积 公式 ,直到 相 邻 的 两 次 计算 结果 之 差 的 绝对 值 小 于 要 求 的 精 
度 为 止 。 


S21 变 步 长 的 梯形 公式 


1. 功能 
用 复合 梯形 公式 计算 定 积 分 S = | 7rcopdz 的 近似 值 ,使 相 邻 的 两 次 计算 结果 之 差 的 绝 
对 值 小 于 要 求 的 精度 。 


2。 计 算 方 法 

根据 复合 梯形 公式 的 误差 估计 ,可 得 SsTa 十 (Ta 一 人 )/3。 如 果 |T2 一 九天 s( 人 允许 
精度 ) ,那么 可 以 认为 T,, 已 经 满足 精度 要 求 。 

将 积分 区 间 ?等 分 ,用 复合 梯形 公式 计算 T, ,然后 将 积分 区 间 2n 等 分 ,用 复合 梯形 公 
式 计 算 T> ,直到 |T;, 一 T, | 二 e 为 止 。 

3. 使 用 说 明 


trapzstep (fun,a,b,ep) 


fun 为 被 积 了 两 数 ,a,b 为 积分 下 上 限 ,ep 为 允许 精度 ,默认 ep 二 10 ,返回 积分 的 近 
似 值 。 
4. MATLAB 程序 


function s=trapzstep (fun,a,b,ep) 
s 递 归 次 数 即 为 二 等 分 区 间 的 次 数 
if nargin==3 
ep= 0.000001; 
end 
n=1; 
Tn= comtrapz (fun,a,b,n); s 利 用 符合 梯形 公式 
m2x*n; 
T2n= comtrapz (fun,a,b,m); 
count= 1; 
while abs (T2n— Tn)>=ep 
Tn= T2n; 
m=2xm; 


count= count+1; 
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T2n= comtrapz (fun,a,b,m); 


end 

fprintf(' 递 归 %ad 次 后 求 得 积分 近似 值 为 \n', count); 
s= T2n; 

end 


function s= comtrapz (fun,a,b,n) 
s 复 合 梯形 公式 ,n 为 区 间 等 分 数 
if n<1 
error(' 使 用 此 公式 n 不 能 小 于 19) 
end 
EE 
c=a; a=b; b=c; 
end 
h= (b- a) /n; 
I=0; 
for k=1:n—1 
I=I+2*x* feval (fun,a+ k* h); 
end 
s= (h/2) * (feval (fun,a)+I+ feval (fun,b)); 


end 


例 5.4 利用 变 步 长 的 梯形 公式 计算 积分 | 一 一。 
解 输入 如 下 命令 ,计算 得 


>>fun=inline(" 1/log(l+x”’2)"'); 
>>trapzstep (fun, 1,3); 


递归 11 次 后 求 得 积分 近似 值 为 

ans=1.41730272534172 

S22 变 步 长 的 Simpson 公式 

1. 功能 

用 复合 Simpson 公式 计算 定 积分 S = | war 的 近似 值 ,使 相 邻 的 两 次 计算 结果 之 


差 的 绝对 值 小 于 要 求 的 精度 。 


2. 计算 方法 


根据 复合 Simpson 公式 的 误差 估计 ,可 得 S29, + 22 


32 二 > 。 如 果 |1 So 一 S,| <e( 允 许 


精度 ) ,那么 可 以 认为 Su 已 经 满足 精度 要 求 。 


将 积分 区 间 nn 等 分 ,用 复合 Simpson 公式 计算 $, ,然后 将 积分 区 间 2n 等 分 ,用 复合 


Simpson 公式 计算 S, ,直到 | Ss, 一 S, | 二 e 为 止 。 


3. 使 用 说 明 


simpstep (fun,a,b,ep) 
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fun 为 被 积 颗 数 ,a,0 为 积分 下 上 限 ,ep 为 允许 精度 ,默认 ep=10 ,返回 积分 的 近 
似 值 。 
4. MATLAB 程序 


function s= simpstep (fun,a,b,ep) 
gs 递归 次 数 即 为 二 等 分 区 间 的 次 数 
if nargin<3 

error (' 输 入 参数 太 少 '); 
elseif nargin>4 

error(' 输 入 参数 太 多 '); 
elseif nargin== 3 

ep= 1.0e— 6; 
end 
n=1; 
m2x*n; 
Sn= comsimp (fun,a,b,n); s 复 合 Simpson 公式 , 见 5.1.2 节 
S2n= comsimp (fun,a,b,m); 
count= 1; 
while abs (S2n- Sn)>=ep 

Sn= S2n; 

m2x*m; 

count= count+ 1; 


S2n= comsimp (fun,a,b,m); 


end 
fprintf(' 递 归 %ad 次 后 求 得 积分 近似 值 为 \n', count); 
Ss= S2n; 


S23 变 步 长 的 Cotes 公式 


1. 功能 

用 复合 Cotes 公式 计算 定 积分 S = | /(z)dz 的 近似 值 , 使 相 邻 的 两 次 计算 结果 之 差 的 
绝对 值 小 于 要 求 的 精度 。 

2. 计算 方法 


根据 复合 Cotes 公式 的 误差 估计 ,可 得 S 守 Cs 十 (C2, 一 C,)/63。 如 果 |Cz, 一 C | 二 e( 允 
许 精 度 ) ,那么 可 以 认为 Cs, 已 经 满足 精度 要 求 。 

将 积分 区 间 nn 等 分 ,用 复合 Cotes 公式 计算 C, ,然后 将 积分 区 间 2n 等 分 ,用 复合 Cotes 
公式 计算 C, ,直到 | Cs, 一 C, | 二 e 为 止 。 

3. 使 用 说 明 


cotestep (fun,a,b,ep) 


fun 为 被 积 图 数 ,a,2 为 积分 下 上 限 ,ep 为 允许 精度 ,默认 ep 二 10 ,返回 积分 的 近 
似 值 。 
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4. MATLAB 程序 


function s= cotestep (fun,a,b,ep) 
s 递 归 次 数 即 为 二 等 分 区 间 的 次 数 
if nargin<3 

error(' 输 入 参数 太 少 '); 
elseif nargin> 4 

error (' 输 入 参数 太 多 '); 
elseif nargin== 

ep=1.0e— 6; 
end 
n=1; 
m2x*n; 
Cn= comcotes (fun,a,b,n); $s 复合 Cotes 公式 ; 见 5.1.3 市 
C2n= comcotes (fun,a,b,m); 
count= 0; 
while abs (C2n-— Cn)>=ep 

Cn= C2n; 

m2*m; 

count= count+ 1; 

C2n= comcotes (fun,a,b,m); 
end 
fprintf(' 递 归 %d 次 后 求 得 积分 近似 值 为 \n', count); 


Ss= C2n; 
例 5.5 分 别 用 变 步 长 的 Simpson 公式 和 变 步 长 的 Cotes 公式 计算 积分 S = 
| evaz. 
解 在 MATLAB 命令 窗口 输入 


>>ff=inline('exp(- cos (x))"'); 
simpstep (ff, 1,3) 

回 车 执行 得 

递归 5 次 后 求 得 积分 近似 值 为 
ans= 3.15850411828054 

> > cotestep (ff, 1,3) 

递归 2 次 后 求 得 积分 近似 值 为 


ans= 3.15850413150534 


53 ”Romberg 积分 法 


用 复合 梯形 公式 计算 定 积 分 S = | war 和 TT,, 记 TT, 为 Ti1(h), 利 用 Richardson 外 


推算 法 ,选取 q 一 本 , 可 得 如 下 算法 : 


4 下。 国有 T_(h) 


Tt (h) = 4 全 二 ] 


Tu+a(C) 通 近 S 的 误差 为 Ol(h*”，”), 这 种 算法 称 为 Romberg 算法 。 


当 m= 二 1 时 ,由 (5.5) 式 得 
h 


T,(h) = ST (二 Th), 


T [分 }= Tx。, 易 计算 得 T: (hn) 一 S,。 从 而 有 


攻 
2 
On 本 3 了 了 2， 3 
类 似 可 推 得 ,m= 二 2 时 ， 
_16s 1 
Gs ]5 2 15Sv。 
当 罗 一 3 时 ， 
64 1 
R, G3 Can G3Cn 


(m = 1] ,2，…) 
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(5. 5) 


(5. 6) 


(5.7) 


(5.8) 


(5.8) 式 称 为 Romberg 公式 。 从 变 步 长 的 梯形 序列 {Tz } 出 发 ,根据 (5.6) 式 、(5.7) 式 和 
(5.8) 式 ,可 分 别 求 得 Simpson 序列 {S* ) ,Cotes 序列 {Cx 和 Romberg 序列 {Rx )。 


1. 功能 

用 Romberg 公式 计算 定 积分 S = | 7(z)dz 的 近似 值 ,使 相 邻 的 两 次 计算 结果 之 差 的 
绝对 值 小 于 要 求 的 精度 ， 

2. 计算 方法 


(1) 根据 梯形 公式 ,计算 T= T+)). 


(2) 把 区 间 逐 次 折 半 ,计算 T,, (nn 二 2*)。 
(3) 根据 (5.6) 式 (5.7) 式 和 (5. 8) 式 ,计算 加 速 值 S, ,C, ,R，。 


(4) 随时 计算 相 邻 的 R, ,R;, 之 差 的 绝对 值 ,直到 |Rz, 一 R, | 一 e 为 止 。 


3. 使 用 说 明 


romberseq (fun,a,b,ep) 


fun 为 被 积 困 数 ,a ,0 为 积分 下 上 限 ,ep 为 允许 精度 ,默认 ep 王 10 一 ,返回 积分 的 近 


似 值 。 
4. MATLAB 程序 


function s= romberseqg (fun,a,b,ep) 
if nargin==3 

ep=1.0e— 6; 
elseif nargin<3 

error 


end 
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tl1= 10000; 
t2=— 10000; 
n= 0;» 
m= 1; 
h=b- a; 
t(1,1)=0.5* (b-a) * (feval (fun,a)+ feval (fun,b)); 
while abs (t2- tl1)>=ep 
area= 0.0; 
n=n+1; 
h=h/2; 
for i=1:m 
area= area+ feval (fun,hx (2x* i-—1)+a); 
end 
t(nt+1,1)=0.5x*xt(n,l1)+area* h; 
m=2xm; 
if n>4 
for j=1:3 
for i1=1sn=] 
t(i,j+1)= (4° (3) < 七 (IT+ly 了) 一 七 (rr]))7 (4 0) — 1); 
end 
end 
tl=t(n— 4,4); 
t2=t(n- 3,4); 
end 
end 
disp(' 用 Romberg 序列 求 得 积分 近似 值 为 '); 


s=t2: 


2 i 一 3x2 
例 5.6 用 Romberg 公式 计算 定 积分 S = | Vzx(sin((51 + zr)e™ )+2) 
0 


zx: 十 1 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex5_6. m。 


exf5 6=inline(" sqrt (x)/(x’2+1)* (Sin((51+X) < exp(- 3¥* x’2))+2)"); 
fplot (exf2 6,[ 0,2]) 
romberseq (exf> 6,0,2) 


在 MATLAB 命令 窗口 输入 
>>eXxXxD 6 
回 车 后 ,屏幕 显示 结果 为 (图 像 为 图 5. 4) 


用 Romberg 序列 求 得 积分 近似 值 为 
ans=1.82913329837370 
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5.4 例 5.6 的 被 积 函 数 图 像 


S54 自 适 应 积分 法 


复合 求 积 公式 要 求 使 用 等 距 节 点 ,在 整个 区 间 上 使 用 相同 的 小 步 长 h, 以 保证 精度 要 
求 。 当 曲线 的 某 部 分 变化 剧烈 ,而 在 其 他 地 方 变 化 平缓 时 ,应 用 等 距 节 点 的 复合 公式 不 是 很 
合适 。 为 了 达到 精度 要 求 又 要 节省 计算 量 , 则 可 在 困 数 变化 剧烈 的 部 分 增加 节点 ,而 在 函数 
变化 平缓 的 地 方 减少 节操 ,这 种 方法 称 为 日 适 应 积分 法 。 


1. 功能 
用 自 适应 Simpson 求 积 法 计算 定 积分 S 一 | /Cz)dz 的 近似 值 。 
2. 计算 方法 


从 整个 积分 区 间 {[a,651,e}) 开 始 , 其 中 8 是 [a,b|] 上 数值 积分 的 容 差 。 用 Simpson 公式 
计算 在 La,5j] 上 的 积分 值 S。 取 cc 为 La,5j| 的 中 点 ,分 别 在 La,cj,Lc,65j] 上 的 用 Simpson 公式 
计算 积分 值 S1 ,S;。 令 Sis = 二 Si 十 Ss, 利用 err 二 1S1s 一 S1/15, 计 算 Sy 的 误差 err, 如 果 误 差 
在 容 差 范围 内 ( 即 err<e) , 则 终止 ,并 返回 积分 值 Ss 。 否 则 ,对 [a,cj],Lc,5j 两 个 小 区 间 都 
用 同样 的 程序 ,并 融 有 容 差 s/2, 直 到 最 深层 满足 误差 条 件 。 注 意 此 算法 是 递归 算法 。 

3. 使 用 说 明 


[3s,nodes,errl|]=adapsimp (fun,a,b,ep) 


fun 为 被 积 困 数 ,a ,0 为 积分 下 上 限 "epb 为 允许 精度 ,默认 CD 一 10 一 ? 可 返回 三 个 参数 ， 
即 积分 近似 值 、 所 用 节点 和 近似 误差 返回 积分 的 近似 值 。 

4. MATLAB 程序 

function [s,nodes,errl=adapsimp (fun,a,b,ep) 


if nargin==3 


ep= 10^ (- 6); 


le 


128 常用 数值 算法 及 其 MATLAB 实 现 


end 
s= comsimp (fun,a,b, 1); s 复 合 Simpson 公式, 见 5.1.2 节 
c= (a+ b) /2; 
sl1l= comsimp (fun,a,c,1); 
32= comsimp (fun,c,b,1); 
号] 二 一 313S2> 
err=abs (s12- s) /15; 
if err<ep 
s= S12; 
nodes= [a c bl]; 
else 
[sl,nodesl,errl]=adapsimp (fun,a,c,ep/2); 
[s2, nodes2,err2]=adapsimp (fun,c,b, ep/2); 
s= sl+ s2; 
err=errlt+err2; 
nodes= [nodesl nodes2(2:1length (nodes2))]; 


end 


例 5.7 ”利用 自 适应 积分 法 求 S == | ; es 
解 ” 建 立 如 下 脚本 文件 ,并 存 为 ex5_7. m。 


exf5 /= inline("1+Sin(X^2) * exp(- x/5)"'); 
fplot (exf5 7,{[ 0,10]) 
adapsimp ("exf> 7",0,10) 


在 MATLAB 命令 窗口 输入 


> ex 7 


回 车 后 ,屏幕 显示 结果 为 (图 像 为 图 5. 5) 


0.4 


0.2 
0 1 2 3 4 6 6 ’ 9 9 10 


5.5 例 5.7 的 被 积 函 数 图 像 
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s=10.52711303020488 
err= 3.065768799276568e- 007 
即 积分 值 sS 兴 10.5271130320488 ,误差 约 为 3.065768799276568X 107"。 


SS Gauss 求 积 公 式 


插值 型 求 积 公子 
b nl 
| fdr = Dj Arf x), 4 一 Zoo< Zi<…%< 天 一 0 (5.9) 
本 k=0 


的 代数 精度 至 少 是 ,其 最 大 代数 精度 是 多 少 ? 可 以 证 明 插 值 型 求 积 公式 (5.9) 的 代数 精度 
至 多 是 2n 十 1 。 硅 插值 型 求 积 公 式 (5.9) 的 代数 精度 是 2n 十 1, 则 称 它 为 Gauss 型 求 积 公式 ， 
其 相应 的 求 积 节 点 称 为 Gauss 点 。 

Gauss 型 求 积 公式 是 具有 最 高 代数 精度 的 插值 型 求 积 公式 ,其 求 积 节点 (Gauss 点 ) 是 
区 间 [La,oj 上 关于 权 困 数 o(Cz) 的 2 十 1 次 正 交 多 项 式 的 2 十 1 个 互 异 的 实 根 。 因 此 ,对 不 同 
类 型 的 正 交 多 项 式 ,就 有 不 同 的 Gauss 型 求 积 公式 。 


SS1 Gauss-Legendre 求 积 公式 


1. 功能 
用 Gauss-Legendre 求 积 公式 计算 定 积 分 S = | war 的 近似 值 。 


2. 计算 方法 
(i) 区 间 [ 一 1,1] 上 的 Legendre 正 交 多 项 式 P,(z)( 权 图 数 o(Cz) 一 1)， 


1 中 
2"n1 dz” 


递 推 公式 : Pu(z) 王 1,Pi(Cz) 王 zZ, (2 十 1) PH Cr) 一 (22 十 1)zP,(Czr) 一 PCZz) 72 一 1， 
2,…。 根 据 递 推 公式 ,编写 求 妹 次 Legendre 正 交 多 项 已 ,(z) 的 程序 ,并 由 此 求 得 P,(z) 的 
(Cii) 7 个 节点 的 Gauss-Legendre 求 积 公式 为 


P, (Xx) = [ (zx 一 1)”|]。 


1 nl 
| (rd 2 Asf (x1)， 
-1 k=1 


2 1 
其 中 Sd 是 P, (Xx) 的 零点 , 求 积 系数 MT PC )P Cy)’ k=1,2,*° ,nn, 


(111) 区 间 [a,6j 上 的 Gauss-Legendre 求 积 公式 为 


pb _ nl 
| few)ar = A 
a k=1 


其 中 nt ds ,A, 同 (22) ,k=1,2,.…,n。 
3. 使 用 说 明 


gausslegendre (fun,n,a,b) 
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fun 为 被 积 男 数 ,7 为 节点 数 ,a,b 为 积分 下 上 限 , 默 认 4= 二 一 1,6 二 1, 返 回 积 分 的 近 
似 值 。 
4. MATLAB 程序 


function I=gausslegendre (fun,n,a,b) 
if n<=0, 
fprintf ('Gauss-Legendre 求 积 公 式 中 的 n 应 是 正 整 数 '); 
end 
if nargin== 
a=—1; b=1; 
end 
I= legendpoly (n); 
t= roots(L(nt li =s)])s 
for k=1:n 
A(k)=2/ (polyval (L(n,:),t(k)) * (polyval (polyder (L(nt 1,:)),t(k))) * n); 
x(k)= ((b-a) * t(k)+at+b)/2; 
fx(k)= feval (fun,x (k)); 
end 
I=Ax fx' * (b-a)/2; 
function P= legendpoly (n) 
s 此 函数 用 来 计算 n 次 Legenqdre 多 项 式 的 系数 ,P0 (x) 的 系数 放 在 第 一 行 ,Pl (x) 的 系数 放 在 第 二 
行 ,…, 按 降 短 排 列 
P= zeros (n+ 1) ; 
if n==0 
P=1; 
end 
P(l,n+1)=1; 
P(2,n:n+1)= [1 0]; 
for k=2:n 
P (k+ 1,n- k+l:nt+1)= ((2¥* (k- 1)+1) * [P(k,n— kt+2:n+1)0]- (k-1)x* [0 0 P(k-1,n-kt+3:n+1)])/ 
k; 


end 


解 ” 用 MATLAB 程序 求解 ,用 M 文件 定义 被 积 田 数 , 并 分 别 存 为 ex{f5_8_1. m,exf5_8_2。 


例 5.8 利用 Gauss-Legendre 求 积 公式 分 别 计 算 | 50e-2z dz,| 


.2 
Xe 2z dx 
1 


function y=exfS 8 1 (x) 

y=50* exp(- 2* x^2); 

function y=exf> 8 2 (x) 

y=X¥ exp(— 2* x 2); 

在 MATLAB 命令 窗口 调用 程序 gausslegendre, 执 行 后 有 下 述 结果 。 
>>gausslegendre('exfS 8 1",16,0,1) 

ans= 29.90720033315092 

由 积分 的 性 质 可 知 , 第 二 个 积分 为 零 , 用 16 个 节点 代入 程序 计算 得 


>>gausslegendre('exfS 8 2",16) 
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ans= 2.205458038417874e- 013 


SS2 Gauss-Chebyshev 求 积 公式 
1. 功能 


用 Gauss-Chebyshev 求 积 公式 计算 定 积 分 S = | f(x)dzr 或 | fcz)dz([a， 


ES 
人 
bj 天 [一 1,1 |) 的 近似 值 。 


2. 计算 方法 
1 
(i) 区 间 [ 一 1,1] 上 的 Chebyshev 正 交 多 项 式 T.(z) [ 权 本 数 p= 有 A) 
= 
T,X) = cos(narccos(x))。 
(Cii) 7 个 节点 的 Gauss-Chebyshev 求 积 公式 为 
1 
| 有 入- PD Af Ce), 
(2& 一 1)x 
其 中 z=cos[ 是， (z) 的 零点 , 求 积 系数 A 一 一 ,k 二 1， Zs°** No 
0 十 a 
(iiD 对 积分 S = | /(z)dz, 作 变换 z= 和 91 十 和 34, 由 
b—a ba 
1 四 上 1 下 
-和 5 ye , 作 fy, 
2 J-l 2 2  J-1 ] 二 7 
对 了 数 /(3! st | 。V1 应 用 (ii) 中 的 公式 即 可 。 
3. 使 用 说 明 
gausschebys (fun,n,a,b) 


fun 为 被 积 困 数 f(x) ,ma 为 节点 数 ,a,p 为 积分 下 上 限 , 人 返回 积分 的 近似 值 。 
4. MATLAB 程序 


function I=gausschebys (fun,n,a,b) 
t= zeros (1,n); 
X= Zeros (1,n); 
fx= zeros (1,n); 
fxx= Zeros (1,n); 
A(l:n)=pi/n; 
if(a==—1)&(b==1) 
for i=1:n 
t(i)=cos((2* i—1) % pi/(2* n)); 
x(i)= ((b-a) * t(i)+at+b)/2; 
fx(i)= feval (fun,x(i)); 
end 
I=AX fx"; 


else 
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for i=1:n 
t(i)=cos((2* i—-1) * pi/(2* n)); 
x(i)= ((b-a) *t(i)+at+b)/2; 
fxx (i)= feval (fun,x(i)) * sqrt (1— (t(i))^2); 
end 
I=Ax fxx' *x (b-a)/2; 


end 


es 、 1 400X(l1 — zx)e 2 
例 5.9 利用 Gauss-Chebyshev 求 积 公式 计算 | 一 一 dz。 
-1 V1i—zx 


解 ” 利 用 MATLAB 程序 gausschebys 计算 ,并 用 其 因数 int 验证 。 定 义 两 个 限 数 : 


function y=exf> 9(x) 

y= 400¥* xx* (1—-x) * eXpP (一 2 关 x); 

function y=exfs> 9(x) 

Syms x; 

y=400¥* xx* (1 一 X) * exp(-2x* x)/sqrt(1- x’^2); 
并 存 为 exf5 9.m, 和 exfsD5 9.m。 

在 MATLAB 命令 窗口 调用 程序 gausschebys 和 int, 执 行 后 有 下 述 结果 。 
>>gausschebys ('exf> 9"',17,—1,1) 

ans=— 3.864037987031664e+ 003 

>>vpa (int (exfs5 9,- 1,1)) 

Warning:Explicit integral could not be found. 
>In sym.int at 58 

ans=— 3864.0379870316644302003853123064 


由 此 可 见 ,17 个 节点 的 Gauss-Chebyshev 求 积 公式 可 达到 相当 高 的 精度 。 
~ 、 让 : 、 2 刀 一 2z 十 2 

例 5. 10 利用 Gauss-Chebyshev 求 积 公式 计算 S = | T2272 
a 


解 ” 方 法 一 : 由 于 积分 区 间 不 是 [一 1,1j], 先 作 积 分 变换 1 二 zx 十 1, 则 S = 


1 2 
| i 可 用 Gauss-Chebyshev 求 积 公式 ,此 时 Fi) 王 刀 十 1 是 二 次 多 项 式 , 所 以 用 
_ 1 = 
两 个 节点 以 上 的 Gauss-Chebyshev 求 积 公式 即 可 得 到 积分 的 精确 值 。 

在 MATLAB 命令 窗口 输入 


>>exf5 10=inline(" (x 2+1)"); 
>>gausschebys (exf 10,2,-1,1) 
ans= 4.71238898038469 


方法 二 : 建立 被 积 函 数 , 直 接 代 入 程序 计算 。 


function y=exfs> 10 (x) 
y= (XxX 2—- 2 xt+2)/sqrt (x* (2- x)); 


存 为 exfs5_10. m, 在 MATLAB 命令 窗口 调用 程序 gausschebys ,执行 后 有 下 述 结果 。 


>>gausschebys ('"exfs5 10",2,0,2) 
ans= 4.71238898038469 
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注 : 1.5x r 一 4.71238898038469 ,可 见 用 两 个 节点 的 MATLAB 程序 gausschebys 得 到 
了 积分 的 精确 值 。 
例 5.11 利用 Gauss-Chebyshev 求 积 公式 计算 Si; = | > - AW 4 并 一 刀 一 3dx。 
解 ” 利 用 MATLAB 程序 gausschebys 计算 ,定义 晒 数 : 


function Y= exf5 11 (x) 
y=X* sqrt (4 关 x— x 2— 3); 


并 存 为 exf5_ 11.m, 在 MATLAB 命令 窗口 调用 程序 gausschebys ,执行 后 有 下 述 结果 。 


>>gausschebys ('"exfD 11",3,1,3) 
ans= 3.14159265358979 


1 
例 5.12 利用 Gauss-Chebyshev 求 积 公式 计算 5， -| I 


-1 VZ 十 1 
1 
~ 区 | ;但 个人 出 现 《一 一 一 ， 
解 因为 积分 区 间 为 | 」 ,但 是 被 积 函 数 中 没 出 现 权 函数 p nk 不 
能 直接 应 用 程序 gausschebys 计算 。 将 积分 改写 为 S, 一 |， 一 让 和 二 dx, 就 可 对 


1 rx ~» \Y 
半数 一 一 一 ,应 用 程序 ; 。 定义 亲 效 : 
数 二 实用 程序 求解 了 。 和 是 数 


function y=exf> 12 (x) 
y= sqrt (1— X^2) /sqrt (x+ 1) 


并 存 为 exf5 12.m, 在 MATLAB 命令 窗口 调用 程序 gausschebys, 执 行 后 有 下 述 结 果 。 


>>gausschebys ("exfS 12",60,—1,1) 
ans= 2.82850790025213 


易 求 得 该 积分 的 精确 值 为 2V2 守 2. 82842712474619。 是 何 原因 致使 例 12 计算 结果 的 
精度 比较 差 ?” 比 较 例 5. 10、 例 5.11、 例 5.12 可 见 , 表 面 上 它们 都 是 无 理 积分 ,但 是 当 化 为 区 
间 [ 一 1,1] 上 的 积分 时 , 例 5.10、 例 5.11 中 的 被 积 消 数 (不 含 权 限 数 ) 是 多 项 式 , 所 以 用 几 个 
节点 就 可 得 到 精确 解 。 例 5. 12 的 情况 就 不 同 了 , 它 的 被 积 果 数 (不 含 权 果 数 ) 远 非 多 项 式 ， 
可 通过 增加 节点 来 提高 精度 。 如 计算 500 个 节点 时 ,有 


>>gausschebys ('exf> 12 "200, 一 1 1) 

ans= 2.82842828789058 

SS3G Gauss-Laguerre 求 积 公式 

1. 功能 

用 Gauss-Laguerre 求 积 公式 计算 定 积 分 S = | e“f(z)dz 的 近似 值 。 
0 


2. 计算 方法 
(GD 区 间 [Lo, 十 se) 上 的 Laguerre 正 交 多 项 式 L, (x) (权限 数 p(x) 二 e *)， 
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Lo(Cz) 一 1， 


LA d (TREE R= LZ, 


dz” 
递 推 公式 : Lo(z) 王 1,Li(z) 王 1 一 ZL HG) 一 (22 十 1 一 Z)L (zr)—niL,i(r),n=1,2,.。 
根据 递 推 公式 ,编写 求 nn 次 Laguerre 正 交 多 项 工 ,(CZz) 的 程序 ,并 由 此 求 得 志 ,(Cz) 的 零点 。 
(ii) nn 个 节点 的 Gauss-Laguerre 求 积 公式 为 


十 co n 
| er(z)dzs Af (x), 
0 k=1 


(n1)? 


日- i ee 9 |] 心 Ea Pawan Rt 
其 中 X12 Tn 钙 工 ,(Zz) 的 雪 ， 求 积 系数 A Ltri (Ta)L , (zr) 


3. 使 用 说 明 


:二 1 ,2 ,7 


gausslaguerre (fun,n) 


fun 为 被 积 胃 数 FCz)( 不 含 权 图 数 ) ,7 为 节点 数 , 人 返回 积分 的 近似 值 。 
4. MATLAB 程序 


function I=gausslaguerre (fun,n) 
If n<=0 
fprintf ('Gauss-Laguerre 求 积 公 式 中 的 n 应 是 正 整 数 '); 
end 
IL= laguep (n); 
t= roots (L); 
Ll= laguep (n+ 1); 
w= (prod (1:n)) “2; 
for k=1:n 
A(k)=w/ (polyval (L1,t (k)) * (polyval (polyder (L),t (kK)))); 
fx(k)= feval (fun,t (k)); 
end 
I=AxX fx"; 
function I= laguep (n) 
% 此 函数 用 来 计算 n 次 Laguerre 多 项 式 的 系数 ,递归 调用 Legendp (n) ,给 出 n 次 Legendre 正 交 多 项 式 
的 系数 
if n<=0 
I=1; 
elseif n== 
I= [-1 1]; 
else 
I= (2* n-1) * [0 laguep(n- 1)]- [laguep(n— 1)0]- (n-1)^ 人 2x< [0 0 laguep (n- 2)]; 


end 


十 co 
例 5.13 求 S; 一 | e zzr2coszdz。 
0 


解 ” 利 用 MATLAB 程序 gausslaguerre 计算 ,并 用 MATLAB 的 困 数 int 验证。 在 编 
辑 窗 口 定 义 图 数 : 
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function Y= exf5 13 (x) 

y=X 2* cos (x); 

function y=exfs> 13t (x) 

Syms x; 

y= exp (— Xx) * x 2 cos (x); 

并 分 别 存 为 exf5 13. my,exfs5 13. m。 在 MATLAB 命令 窗口 调用 程序 gausslaguerre 
和 int, 执 行 后 有 下 述 结果 。 

>>gausslagueTrTre ( "exf5 13"，15) 

ans=— 0.49999985383389 

>>int (exfsS 13,0,+inf) 


ans=— 1/2 


十 co 
例 5.14 求 S, = | 一 一 -一 dx。 
0 ] 十 并 


解 由 于 被 积 函数 中 未 出 现 权 函数 p(z) =e, 作 变量 代 换 + 二/ 万, 则 S, 一 


| ”一 edi, 利用 MATLAB 程序 gausslaguerre 计算 ,在 编辑 窗口 定义 函数 ， 
加 
- 


function y=exf> 14 (x) 
y=1/(6x* sgqrt (1+x/3)); 


并 存 为 exf5 14.m。 在 MATLAB 命令 窗口 调用 程序 gausslaguerre, 执 行 后 有 下 述 结 果 。 


>>9gausslaguerTre ( exft> 14",12) 
ans=0.147021987263569 


SS4 Gauss-Hermite 求 积 公式 


1. 功能 
用 Gauss-Hermite 求 积 公式 计算 定 积 分 S = | ez f(z)dz 的 近似 值 。 


2. 计算 方法 

(i) 区 间 ( 一 co ,十 ceo) 上 的 Hermite 正 交 多 项 式 昌 , (zx)( 权 轴 数 o(z) 一 ez )， 
Ho(x) 一 ]， 

由 


12 一 1 Ze 
T 


H, (zx) = (— 1)"e* 


递 推 公式 : Ho(x)= 二 1 ,Hi(zx)= 二 2x,Hiii(X) 二 2X7H,(X) 一 2nH,_1(X),n 二 1,2,…。 根 据 北 
推 公 式 ,编写 求 n 次 Hermite 正 交 多 项 互 ,(Cz) 的 程序 ,并 由 此 求 得 旷 , (x) 的 零点 。 
(ii) 7 个 节点 的 Gauss-Hermite 积 公 式 为 


十 co 2 
| e”™ f(r)dr Arf x), 
> k=1 
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wl. 
其 中 ,zi ,Xs，…,X, 是 电 , (zx) 的 零点 , 求 积 系数 As—=_ 2 nl MK 1,2,.. 本 
(H+1 Le 
3. 使 用 说 明 


gausshermite (fun,n) 


fun 为 被 积 杂 数 ,n 为 节点 数 , 返 回 积 分 的 近似 值 。 
4. MATLAB 程序 


function I=gausshermite (fun,n) 
if n<=0 
fprintf ('Gauss- Hermite 求 积 公 式 中 的 n 应 是 正 整 数 '); 
end 
t= roots (hermitep (n) ) ; 
Hl= hermitep (n+ 1); 
H2= hermitep (n); 
W=— 2^(nt+1) prod(l:n) * sqgqrt (pi); 
for k=1:n 
A(k)=w/ (polyval (H1,t (kK)) * (polyval (polyder (H2) ,t (k)))); 
fx(k)= feval (fun,t (k)); 
end 
I=Ax fx"; 
function H= hermitep (n) 
$s 此 函数 用 来 计算 n 次 Hermite 多 项 式 的 系数 ,递归 调用 hermite(n), 给 出 n 次 Hermite 正 交 多 项 式 的 
系数 
if n<=0 
H=1; 
elseif n==1] 
H= [2 0]; 
else 
H=2*x* [hermitep(n—1)0]-2* (n-1)* [0 0 hermitep (n-— 2)1]; 


end 
例 5.15 求 Si; 一 | ez sin* Xdx。 
解 ” 利用 MATLAB 程序 gausshermite 计算 ,在 编辑 窗口 定义 曙 数 : 


function y=exf> 15 (x) 
y= (sin (X) ) “2 7 


存 为 exf5 15.m。 在 MATLAB 命令 窗口 调用 程序 gausshermite ,执行 后 有 下 述 结果 。 


>>gausshermite ("exf5 15"，12) 
ans= 0.56020225936784 


过 
例 5.16 求 S。 -| — dz, 
- 1 二 +x* 


解 ” 利 用 MATLAB 程序 gausshermite 计算 ,并 用 MATLAB 的 图 数 int 验证 。 在 编辑 
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窗口 定义 困 数 : 


function Y= exf5 16 (x) 

y=1/sqrt (1+X^2) ; 

function y=exfs> 16t (X) 

Syms x; 

y= exp(- x 2) /sqrt (1+ x^2); 
并 分 别 存 为 exf5_16. m,exfs5_16t. m。 在 MATLAB 命令 窗口 调用 程序 gausshermite 和 
int ,执行 后 有 下 述 结果 。 


>>gausshermite ("exf> 16",26) 

ans= 1 .52410766261304 

>>vpa (int (exfs 16,- inf,inf)) 

ans= 1 .5241093857739095300229150933188 


56 预先 给 定 节 点 的 Gauss 求 积 公式 


Gauss 型 求 积 公式 是 具有 最 高 代数 精度 的 插值 型 求 积 公式 ,其 求 积 节点 (Gauss 点 ) 是 

区 间 [La,65j] 上 关于 权 了 铺 数 p(x) 的 n 次 正 交 多 项 式 的 nn 个 互 异 的 实 根 。 有 些 应 用 中 ,希望 区 

间 的 一 个 或 两 端点 预先 固定 ,最 常用 的 是 积分 区 间 [ 一 1,1」 上 ,固定 端点 一 1 的 Gauss- 
Radau 求 积 公式 和 两 个 端点 一 1,1 都 固定 的 Gauss-Lobatto 求 积 公式 。 


SG1 Gauss-Radau 求 积 公 式 

1. 功能 

用 Gauss-Radau 求 积 公式 计算 定 积分 S = | f(z)dz 的 近似 值 。 
2. 计算 方法 

7 个 节点 的 Gauss-Radau 求 积 公式 为 


1 
| fdr~2 上 1A,f Gr), 


k=2 


其 中 ,xs,… ,Xx, 是 多 项 式 王 ,_1 (xXx) 二 TP, 1(X) 十 P, (zx)),XTE[ 一 1,1]| 的 零点 ,P, (zx) 是 


n 次 Legendre 正 交 多 项 , 求 积 系数 A, 一 rp E23 
n—1 
3. 使 用 说 明 
gaussradau (fun,n) 


fun 为 被 积 函 数 ,n 为 节点 数 , 返 回 积 分 的 近似 值 。 
4. MATLAB 程序 


function I=gaussradau (fun,n) 
IE n<=1 


fprintf('Gauss- Radau 求 积 公 式 中 的 n 应 大 于 或 等 于 2'); 
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end 
I= legendpoly (n); s 求 n 次 Legendre 正 交 多 项 式 , 参 见 5.5.1 节 
pp=L(nt1,:)+L(n,:); 
ql= [1 1]; 
[q,r]= deconyv (pp, q1); 
t= roots (gq); 
for k=1:n—1 
R(k)=1/((1-t(k) ) * (polyval (polyder (L(n,:)),t(k)))°2); 
fx(k)= feval (fun,t (k)); 
end 


I=2*x feval (fun,—1)/n^2+Ax fx'; 
1 
例 5.17 求 积分 | e* dx。 
一 
解 在 MATLAB 命令 窗口 输入 


>>exf5 1 /一 inline("exp (一 X2) ) > 


>>gaussradau (exf> 17,10) 
回 车 执行 后 屏幕 显示 结果 为 


ans= 1 .49364826562483 


5S.G2 Gauss-Lobatto 求 积 公式 


1. 功能 
1 
用 Gauss-Lobatto 求 积 公式 计算 定 积分 S 一 | /(z)dz 的 近似 值 。 
一 :1 
2. 计算 方法 
7 个 节点 的 Gauss-Lobatto 求 积 公式 为 
1 2 n—1 
| fdr ff) +f D+ 2 Af lr), 
-1 a 2 


其 中 ,x,,…,X,_1 是 多 项 式 P'_1(x) 的 零点 ,P,_1(X) 是 n 一 1 次 Legendre 正 交 多 项 , 求 积 系 


2 rg 
数 A n(n—1)[P,_, (zx) 本 。 A ?77 1 


3. 使 用 说 明 
gausslobatto (fun,n) 


fun 为 被 积 困 数 ,? 为 节点 数 , 返 回 积 分 的 近似 值 。 
4. MATLAB 程序 


function I=gausslobat (fun,n) 
if n<=2 

fprintf ('Gauss- Lobatto 求 积 公 式 中 的 n 应 大 于 或 等 于 3'); 
end 


I= Legendp (n- 1); 
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pp= polyder (L); 
t= roots (pp); 
for k=1:n—2 
A(k)=2/(n¥* (n-1)* (polyval (L,t (k)))”2); 
fx(k)= feval (fun,t (k)); 
end 
I=2/(nx* (n-1)) * (feval (fun,— 1)+feval (fun,1))+Ax fx"'; 
function pp= Legendp (n) 
s 递归 调用 Legendp (n) ,给 出 n 次 Legengre 正 交 多 项 式 的 系数 
If n<=0 
pp=1; 
elseif n== 
pp= [1 0]; 
else 
pp= ((2* n- 1) * [Legendp (n-1)0]- (n-1) * [0 0 Legendp (n- 2)])/n; 


end 


1 
例 5.18 求 积 分 S = | Dsin( Fe 十 D jaz. 
_1 


解 ”首先 用 因数 int 计算 其 精确 值 ,然后 取 不 同 的 节点 数 , 用 gausslobatto 程序 计算 ,从 
下 面 的 计算 结果 发 现 , 并 非 节点 越 多 ,结果 越 精 确 。 从 理论 上 讲 , 节 点 越 多 , 求 积 公式 的 代数 
精度 越 高 ,这 是 对 被 积 函 数 为 多 项 式 而 言 ,有 些 情况 并 非 如 此 。 

定义 函数 : 

function y=exfs5 18(x) 

syms x; 

y=exp (3x* pix (x+1)/8) * sin(pix (x+1)/4); 


并 存 为 exfs5 18.m。 在 MATLAB 命令 窗口 调用 程序 int, 执 行 后 有 下 述 结果 。 


>>int (exfs> 18,— 1,1) 
ans=8/13* (3x* exp (pi)^ (3/4)+2)/pi 
即 
3 
8 2+3e4” 
13 


建立 如 下 脚本 文件 ,并存 为 ex5_18. m。 


6.59188868308368677。 


exf5 18= inline("exp(3 关 Pix (x+1)/8) * sin(pix (xt+1) | 
S6= gausslobatto (exf5 18, 6) s 用 6 个 节点 计算 
S10= gausslobatto (exf> 18,10) 

S20= gausslobatto (exf> 18,20) 

S30= gausslobatto (exf> 18,30) 


在 MATLAB 命令 窗口 执行 ex5 18, 则 有 


>> ex 18 
S6= 6.59188872552336 
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S10= 6.59188868308368 
S20= 6.59188868313187 
S30= 6.59188862964446 


57 一 和 里 积分 的 效 值 计算 


考虑 二 元 图 数 f(x,y) 在 区 域 D: = 一 {(zx,y)|a 三 x 三 b,c(x) 三 y 三 d(x) ) 上 的 二 重 积 分 
b d(x) 

站 = 上/ (x,y)dzdy, 将 其 化 为 二 次 积分 S = | dz| ,JCzy)dy。 二 重 积分 的 数值 公式 的 一 
J 


般 形式 为 SC(a,b,c(zx) ,d(x)) = > > or ,yi,; ) ,这 里 的 权 值 u,v; 依赖 于 定 积 分 所 用 
的 方法 。 四 

S.7.1 合 Simpson 公式 

1. 功能 

用 复合 Simpson 公式 求 二 重 积分 S =||fcz, 三 | dz f(x,y)dy 的 近似 值 。 


2. 计算 方法 
dlxr) b 
将 二 重 积 分 化 为 两 个 定 积 分 , g(x) 一 | f(x,y) dy,S = | g (ZX)dzx，, 然后 对 每 个 定 积 


分 采用 复合 Simpson 求 积 公式 ,计算 步骤 如 下 : 

(1) 对 固定 的 zi ,在 区 间 [Lc(zxi) ,dz ) | 上 对 因数 f(x,y) 用 复合 Simpson 求 积 公式 ， 
求 得 g(x )。 

(2) 将 区 间 [a,b]M 等 分 ,小 区 间 为 [xi ,zitri1j(k 二 0,1,…,M 一 1), 在 La,b] 上 用 复合 
Simpson 求 积 公式 , 则 可 得 二 重 积 分 S 的 近似 值 。 即 


NM 一 1 
S 全 之 (g (Xr) T4871) (ra ) ) 9 
k=0 


其 中 Tk 十 广 = -a ) ,CC ) 按 (1) 求 得 。 
3. 使 用 说 明 


simp2int (fun,a,b,c,d,M,N) 


fun 为 被 积 图 数 , 用 图 数 定 义 ,a, 是 z 的 积分 下 、 上 限 , 都 是 常数 ; c,d 是 y 的 积分 下 、 
上 限 ,用 本 数 定义 。M,N 分 别 为 和 >y 方 和 同上 的 区 间 等 分 数 ,返回 积分 的 近似 值 。 参 见 
MATLAB 的 dblquad 田 数 。 

4. MATLAB 程序 


function s= simp2int (fun,a,b,c,d,M,N) 
s 利 用 复合 Simpson 公式 , 求 二 元 函数 f(x,y) 在 R={(x,y)1a<=x<=b,c (x)<=y<=d(x)} 
上 的 二 重 积 分 。 这 里 的 M,N 分 别 是 区 间 [a,b], [c(z),d(x)] 的 等 分 数 
if mod (M,2)~=0 
M= M+ 1; 


end 
hx= (b- a) /M; 
for k=1:M+ 1; 
x(k)=at+ (k— 1) 关 hx; 
if isnumeric (c) 
cx(k)=c; 
else 
cx(k)= feval (c,x(k)); 
end 
if isnumeric (d) 
dx (k)=d; 
else 
dx(k)= feval (d,x (k)); 


end 


Sx(k)= simpfxy (fun,x(k),cx(k), dx (k),N); 


end 
M1l=M/2; 
ss= 0; 
for k=1:M]1 
Ss=SsSs+2x sx(2x* k-1)+4x* sx(2x* k); 
end 
s=hx/3* (sst+sx(M+1)- sx(1)); 
function s= simpfxy (fun,x,c,d,N) 


s 用 复合 Simpson 公式 , 求 函数 f(x,y) 在 Ry= {c 三 y 二 d} 上 的 定 积分 ,x- 固定,N 为 区 间 等 分 数 


if nargin<5 
N= 100; 

end 

if abs(d-c)<eps|N<=0 
s= 0; 

end 

h= (d- c) /N; 

s= 0;» 

for k=1:N 
sl= feval (fun,x,ct+ (k— 1+1/2) * h); 
if sl==— inf 


Sl=— realmax; 


end 
if sl== inf 

Sl= realmax; 
end 


S2= feval (fun,x,c+t+ kx h); 
if s2==— inf 

32=— realmax; 
end 


IE s2== inf 
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s 若 c (zx) 是 函数 , 取 其 在 x(k) 处 的 函数 值 
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S32= realmax; 
end 
S=St4¥ sl+t2¥% 327 
end 


s= (h/6) * (feval (fun,x,c)+s- feval (fun,x,d)); 


例 5.19 求 二 重 积 分 S 一 zy*dzdy, 区 域 DD 是 由 x? 及 x 围 成 。 
解 输入 如 下 命令 , 男 出 积分 区 域 D( 见 图 5.6) 。 


LOEL x 2 310.11} 
hold on 
fplot (x3", [0,1]) 


5.6 例 5.19 的 积分 区 域 


利用 MATLAB 程序 simp2int 计算 ,定义 图 数 : 


function Y= exf5 19(x,y) 
Z= xX’ 2 y’2; 

function y= cl (x) 

y= XxX’^3; 

function y= dl (x) 


y= XxX 2; 
并 分 别 存 为 exf5_19. m,cl.m,dl.m。 在 MATLAB 命令 窗口 调用 程序 simp2int, 执 行 后 有 
下 述 结果 。 


>> simp2int ("exf> 19°,0,1, "cl", "dl",100,100) 
ans= 0.00925924715888513 


或 在 MATLAB 命令 窗口 输入 : 


>>ex519= inline('x^2x y’2'); 
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>>cl=inline('x^3'); 
>>dl=inline('x^2"'); 
然后 调用 程序 simp2int, 则 有 


>> simp2int (ex519,0,1,c1l,d1,100,100) 
ans= 0.00925924715888513 


积分 的 精确 值 为 S==1/108, 可 见 所 求 结 果 比 较 精 确 。 

例 5.20 求 介 于 图 形 z= 二 4 一 x 一 y’ 与 < 二 2 一 xz 之 间 的 图 形 的 体积 。 

解 ” 积 分 区 域 由 圆 4 一 zx? 一 y 二 2 一 zx, 即 (x 一 1/2)? 十 y: 二 9/4 确定 ( 见 图 5.7)。 所 以 
积分 区 域 


ocean|(- 寺 + < 
= {(z,») | 十 5 V9 Sr 
因此 所 求 体积 为 


人 
| 必 


V =| [da TX —y)— (2—z)jdS 
D 


-| 4 WE —T—y)— (2—zx)Jdzr. 
由 于 积分 区 域 写 成 了 y 型 区 域 ,此 时 仍 可 用 程序 simp2int 计算 此 二 重 积 分 ,但 需 注 意 下 面 
两 个 问题 : (Qi) 被 积 函 数 和 积分 上 、 下 限 也 数 必须 以 函数 形式 定义 ; (Ci 定义 被 积 图 数 时 ,应 
该 按 (y,z) 顺 序 ,调用 程序 时 ,z,y 的 上 下 限 位 置 互 换 ,即将 y 的 下 、 上 限 作为 第 二 ,三 个 参 
数 ,将 工 的 下 、 上 限 作为 第 四 、 五 个 参数 。 


一 人 ,| 


5.7 例 5.20 的 空间 区 域 


利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 文件 如 下 : 


x= [— 2:0.05:3]; 

y= [- 3/2:0.05:3/2]; 

[X,Y]=meshgrid (x, y); 

exam5 20=inline('4-x.^2-y.^2','x','y'); 
exam5 201=inline('2-x"','x','y'); 


exa5 20=inline('2-x.^2-y.^2+x', 'y', 'x'); s 此 处 变量 的 顺序 是 (y,x) ,不 是 (x, y) 
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2 一 exam5 20 (X,Y); 

21= exam5 201 (X,Y); 

mesh (X,Y,2); 

hold on; 

mesh (X,Y,21); 

c=inline('1/2- sqrt (9- 4* y.^2) ./2','y'); 
d= inline('1/2+ sqrt(9- 4* y.^2) ./2','y"'); 
simp2int (exa5 20,-1.5,1.5,c,d,120,100) 


存 为 ex5 20.m。 在 MATLAB 命令 窗口 调用 ex5 20 ,执行 后 ,屏幕 显示 结果 为 


> > eXD 20 
ans= 7.95217603192043 


利用 MATLAB 函数 int 计算 ,得 积分 的 精确 值 V=—33r~7. 95215640439916。 


5S.7.2 变 步 长 的 Simpson 公式 
1. 功能 
利用 变 步 长 的 Simpson 公式 , 求 二 重 积 分 S = | yardy 一 | dz f(z,y)dy 的 


近似 值 。 
2. 计算 方法 


d(x) b 
将 二 重 积分 化 为 两 个 定 积分 , g(x) = | “f(z,y)dy,S = | g(x)dz, 然 后 对 每 个 定 积 


分 采用 变 步 长 的 Smpson 求 积 公式 ,计算 步骤 如 下 : 

(1) 对 固定 的 zx ,在 区 间 [c(xs),ad(zi)] 上 对 函数 f(x,y) 用 变 步 长 的 Simpson 求 积 
公式 , 求 得 g(xi) ,使 其 满足 精度 要 求 。 

(2) 分 别 将 区 间 [La,65]M 等 分 ,2M 等 分 ,在 [a,b5] 上 ,对 g(x) 用 复合 Simpson 求 积 公 子 
(g(x;) 按 (1) 求 得 ), 计 算得 Sy ,Ssm ,直到 | Sx 一 Som | 二 指定 精度 。 则 可 得 二 重 积 分 S 的 近 
似 值 Som。 

3. 使 用 说 明 


simpch2int (fun,a,b,c,d,ep,counmax) 


fun 为 被 积 颗 数 , 用 田 数 定义 ,a, 是 工 的 积分 下 、 上 限 , 都 是 常数 ;c,d 是 y 的 积分 下 、 
上 限 , 用 也 数 定义 ,ep 是 控制 精度 ,counmax 是 二 等 分 区 间 的 最 大 次 数 , 默 认 counmax 一 20; 
返回 积分 的 近似 值 。 

4. MATLAB 程序 


function s= simpch2int (fun,a,b,c,d,ep,counmax) 

s 利 用 变 步 长 的 simpson 公式 , 求 二 元 函数 f(x,y) 在 R= { (x,y)1a<x<b,c(zx) 夺 yd(x)] 
s 上 的 二 重 积 分 。 这 里 的 ep 是 控制 精度 

if nargin== 


Counmax= 20» 
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end 
n= 2; 
m2x*n; 
Sn= simpcomdint (fun,a,b,c,d,n,ep); 
S2n= simpcomdint (fun,a,b,c,d,m,ep); 
count= 1; 
while (abs (S52n- Sn)>=ep)& (count< counmax) 
Sn= S2n; 
TI 一 2 关 my 
count= Count+ 1; 
S2n= simpcomdint (fun,a,b,c,d,m,ep); 
end 
Ss= S2n; 
function s= simpcomdint (fun,a,b,c,d,M,ep) 
s 利 用 复合 Simpson 公式 , 求 二 元 函数 f(x,y) 在 R={ (x,y) 1a<x<b,c(x) 信 yd(x)] 
s 上 的 二 重 积 分 。 这 里 的 MX 是 区 间 [a,b] 的 等 分 数 
hx= (b- a) /M; 
for k=1:M+ 1; 
x(k)=at+ (k— 1) 关 hx; 
if isnumeric (c) 
cx(k)= cc; 
else 
cx(k)= feval (c,x(k)); 者 c (x) 是 函数 , 取 其 在 x(k) 处 的 函数 值 
end 
if Isnumeric (d) 
dx (k)=d; 
else 
dx (k)= feval (d, x (k) ); 
end 
sx(k)= simpfxych (fun,x (k) ,cx (kK) ,dx (k) ,ep); 
end 
Ml=M/2; 
ss= 0; 
for k=1:M]1 
Ss=Ss+t+2x sx(2x* k—-1)+4x sx(2x* k); 
end 
s=hx/3* (sstsx(M+1)— sx(1)); 
function s= simpfxych (fun,x,c,d,ep) 
s 变 步 长 的 simpson 公式 , 当 满 足 |sn- S2nl<ep 时 ,退出 ,并 返回 积分 近似 值 s 
n=1; 
m2x*n; 
Sn= simpfxy (fun,x,c,d,n); 
S2n= simpfxy (fun, x,c,d,m); 
count= 1; 
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while (abs (S2n- Sn)>=ep)& (count< counmax) 
Sn= S2n; 
TI 一 2 关 m; 
count= Count+ 1; 
S2n= simpfxy (fun, x,c,d,m); 
end 
s= S2n; 
function s= simpfxy (fun,x,c,d,N) 
s 用 复合 simpson 公式 , 求 函 数 f(x,y) 在 Ry= {cyd} 上 的 定 积分 ,x- 固 定 ,N 为 区 间 等 分 数 
if nargin<5 
N= 100; 
end 


if abs(d-c)<eps|N<=0 


3s= 0; 

end 

h= (d- c) /N; 

s=0; 

for k=1:N 
sl1l= feval (fun,x,ct+ (k- 1+1/2) * h); 
if sl==— jinf 


Sl=— realmax; 


end 
if sl== inf 

Sl= realmax; 
end 


Ss2= feval (fun,x,c+t+ kx h); 
if s2==— inf 


S52=— realmax; 


end 
if s2== inf 

S32= realmax; 
end 


Ss=s+4x sl+2x s2: 
end 


s= (h/6) * (feval (fun,x,c)+s- feval (fun,x,qd)); 
例 5.21 计算 单位 球 妇 十 十 过 一 1 的 体积 V。 
解 ”根据 对 称 性 ,有 
= of a) Np pr 
利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 文件 如 下 : 


dl= inline("sdqrt (1— x^2)"', 'x'); 
exam5 21=inline('sqgrt (1- x’^2-y’2)"', 'x','y'); 
V=4¥* simpch2int (exam5 21,-1,1,0,d1,0.000001) 
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存 为 ex5 21. m。 在 MATLAB 命令 窗口 调用 ex5 21 ,执行 后 ,屏幕 显示 结果 为 


> > eXD 21 
V=4.188787868901560 


单位 球 的 体积 V 的 精确 值 为 < =-, 所 以 计算 所 得 值 V 的 绝对 误差 为 2. 34e 一 006 。 


例 5.22 计算 二 重 积分 S = I 圭 二 入 dzdy, 其 中 启 是 由 国 #? 十 ys 过 1 和 xz 十 y 之 1 
所 围 成 的 区 域 。 


wy | lM yg 
解 S = J a zdzdy dx i dy。 


由 于 积分 区 域 是 由 同和 直线 围 成 ,用 极 坐 标 更 简单 。 
利用 极 坐 标 , 则 S = | dg (TF Jrar = dl ， Csing+ 
利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 文件 如 下 : 


c2= inline('1/(sin(theta)+cos (theta))', 'theta'); 
examy 22=inline("sin(theta)t+cos(theta)'",'"theta', rr'); 


SS= simpch2int (exam5 22,0,pi/2,c2,1,0.00001) 
存 为 ex5_22. m。 在 MATLAB 命令 窗口 调用 ex5_22 ,执行 后 ,屏幕 显示 结果 为 


> ex 22 
SS= 0.42920373773511 


积分 的 精确 值 为 S 一 2 一 地 ,因此 由 程序 算得 二 重 积分 的 绝对 误差 为 err 一 S 一 SS 一 6. 453X 
10“ ,可见 , 计 算 结 果 的 精度 比较 高 。 
5S.7.3 复合 Gauss 公式 
1. 功能 
用 复合 Gauss 公式 求 二 重 积分 S = | f(y drdy | fwdy 的 近似 值 。 
2. 计算 方法 | 
将 二 重 积 分 化 为 两 个 定 积分 , g(x) = | ready's = | gaz, 然后 对 每 个 定 积 


分 采用 复合 Gauss 求 积 公式 ,计算 步骤 如 下 : 
(1) 对 固定 的 zx, 将 区 间 [c(zi),d(zi)]」N 等 分 ,在 每 个 小 区 间 上 用 5 点 的 Gauss- 
Legendre 公式 ,在 [c(xi),d(z)] 上 对 好 数 f(z，,y) ,用 复合 Gauss 求 积 公式 , 求 得 g(x )。 
(2) 将 区 间 La,5jM 等 分 ,在 每 个 小 区 间 [xj;,zxj+1j」 上 用 5 点 的 Gauss-Legendre 公式 ， 
在 La,bj] 上 对 g(x)(g(zi) 按 (1) 求 得 ) 用 复合 Gauss 求 积 公式 , 则 可 得 二 重 积 分 S 的 近似 值 。 
3. 使 用 说 明 


gauss2int (fun,a,b,c,d,M,N) 
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fun 为 被 积 隐 数 , 用 限 数 定义 ,a,b 是 x 的 积分 下 、 上 限 , 都 是 常数 ;c,d 是 y 的 积分 下 、 
上 限 , 可 用 函数 定义 ,M,N 分 别 为 x 和 y 方向 上 的 区 间 等 分 数 , 返 回 积分 的 近似 值 。 
4. MATLAB 程序 


function ss=gauss2int (fun,a,b,c,d,M,N) 
$s 利用 复合 Gauss 公式 , 求 二 元 函数 f(x,y) 在 R={ (x,y)1a 二 x 二 b,c(x) 全 yd (x)} 上 的 二 重 积分 。 这 
里 的 M,N 分 别 是 区 间 [a,b], [c (zx) ,q(x) ] 的 等 分 数 。 
t= [- 0.90617984593866 一 0.53846931010568 0 0.53846931010568 0.90617984593866]; 
A= [0.23692688505618 0.47862867049937 0.56888888888889 0.47862867049937 

0.23692688505618]; 
hx= (b- a) /M; 
for k=1:M+ 1; 

x(k)=at+ (k— 1) * hx; 


end 
ss= 0; 
for k=1:M 
stt(1:5)= 0; 
for j=1:5 
tt(j)= ((X(k+1) 一 X(K) ) *X t(j)+x(kt1)+x(k))/2; 
if Isnumeric(c) 
ct(j)=c; 
else 
ct (j)=feval (c,tt (j)); s 若 c (x) 是 函数 , 取 其 在 tt(j) 处 的 函数 值 ; 
end 
if isnumeric  (d) 
dt(j)=d; 
else 
dt (Jj)= feval (qd,tt (J)); 
end 
stt (j)=gaussfy (fun, tt (j) ,ct (j) ,dt (j),N); 
end 


ss=sst+ sum(A. * stt) < (x(k+1)-—x(k))/2; 
end 
function s=gaussfy (fun,x,c,qd,N) 
$s 复合 Gauss-Legendre 求 积 公式 ,在 每 个 小 区 间 上 用 5 个 节点 求 fun 在 区 间 [c,d] 上 的 积分 
s= 0; 
for k=1:N+1 
h= (d- c) /N; 
cl(k)=cthx (k—1); 
end 
for k=1:N 
5= s+glegend (fun,x,cl(k),cl (kt+ 1)); 
end 
function I=glegend (fun,x,c,dqd) 
sGauss-Legendre 求 积 公式 ,用 5 个 节点 求 fun 在 区 间 [c,d] 上 的 积分 


if nargin== 
C=—1; 
d= 1; 


end 
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t= [- 0.90617984593866 一 0.53846931010568 0 0.53846931010568 0.90617984593866]; 


A= [0.23692688505618 0.47862867049937 0.56888888888889 0.47862867049937 


0.23692688505618]; 
for k=1:5 
y(k)= ((d-c) * t(k)+ct+d)/2; 
fy(k)= feval (fun,x,y (Kk)); 
sl=fy(k); 
if sl==— inf 


sl=— realmax; 


end 

if sl== inf 
sl1= realmax; 
end 


end 


I=Ax fy'x (d-c)/2; 


例 5.23 计算 二 重 积 分 S = | sinzdzdy， 其 中 总 是 由 y==e* ,y= 二 V1l 十 Xx* 和 z=2 所 


D 


围 成 的 区 域 。 
2 ex 
.i 2 . 
解 5S | sinzdzdy | az 一 sinzdy。 


D 


利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 文件 如 下 : 


c3= inline('sqrt (1+x^2)"', 'x'); 
d3= inline('exp (x) ', 'x'); 
exam5 23=inline('y’2* sin(x)','x','y'); 


S=gauss2int (exam5 23,0,2,c3,d3,30,30) 


存 为 ex5 23. m。 在 MATLAB 命令 窗口 调用 ex5 23， 


> > 23 


S= 40.03051231333419 


sS8 三 和 量 积 分 的 数值 计算 


1. 功能 
用 复合 Gauss 公式 求 三 重 积 
6 
V = | sy drdyds 一 | dz| 
n a 


yo (XxX) 


3] (Xx) 


的 近似 值 。 


执行 后 , 屏 笑 显示 结 采 为 


zo (X,Yy) 
dy| f(xz,y,2) dz 


z] (zyy) 
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2. 计算 方法 


zo (XY) Yo (x) 
将 三 重 积 分 化 为 三 个 定 积分 , g(x,y) = | ,f(x,y 2) dz,h(z) 一 | | SCZy2)dy，Y 一 
z] (XY y] (x 


b 
| h(x) qz, 然后 对 每 个 定 积分 采用 复合 Gauss 求 积 公式 ,计算 步骤 如 下 


(1) 将 区 间 [La,6bj]Ni 等 分 ,在 每 个 小 区 间 [ zi ,zir1」 上 用 5 点 的 Gauss-Legendre 公式 ， 
在 [a,b] 上 对 h(x) 用 复合 Gauss 求 积 公式 求 得 三 重 积分 V 的 近似 值 ,此 时 需 调 用 程序 
gaussfx2() 计 算 h(Cz)( 见 (2))。 

(2) 对 固定 的 zi ,将 区 间 [ yi (zx) ,yz (zi)]N2 等 分 ,在 每 个 小 区 间 上 用 5 点 的 Gauss- 
Legendre 公式 ,在 Ly Cze)yy (Crz)| 上 对 困 数 eg(Czeyy) 用 复合 Gauss 求 积 公式 求 得 h(x)， 
此 时 需 调 用 程序 gaussfx3() 计 算 g(Cze,y)( 见 (3) ) 。 

(3) 对 固定 的 zy, 将 区 间 [Lz CCzeyy)yzs(Czyy)j Nas 等 分 ,在 每 个 小 区 间 上 用 5 点 的 
Gauss-Legendre 公式 ,在 [zi CCzeyy)y,zs(Czyy)]j 上 对 晒 数 F(Czeyy,z) 用 复合 Gauss 求 积 公 
式 求 得 SC yi ) 。 

3. 使 用 说 明 


gauss3int (fun,al,a2,bl]l,b2,c1,c2,N]1,N2,N3) 


fun 为 被 积 困 数 , 需 用 图 数 定义 ,al ,as 是 过 的 积分 下 上限 ,都 是 常数 ; b1,b, 是 y 的 积 
分 下 上限 , 需 用 男 数 定义 ;cycs 是 xz 的 积分 下 、 上 限 , 需 用 函数 定义 ;NNi ,N,N 分别 为 z， 
>y 和 >* 方 同上 的 区 间 等 分 数 ,返回 积分 的 近似 值 。 

4. MATLAB 程序 


function ss=gauss3int (Eun,al,a2,bl,b2,cl,c2,N1L,N2,N3) 
s 利 用 复合 Gauss 公式 , 求 三 元 函数 f(x1,zx2,x3) 在 Q={ (x1,x2,x3) 1alx1<a2,bl (x1) 夺 x2<<b2 (x2)， 
cl (x1,x2) 硅 x3 全 c2 (x1,x2) } 上 的 三 重 积分 。 这 里 的 N1,N2,N3 分 别 是 区 间 [al,a2], [bl (x1) ,b2 (x1)]， 
[cl (x1,x2) ,c2 (x1,x2) ] 的 等 分 数 。 
t= [- 0.90617984593866 一 0.53846931010568 0 0.53846931010568 0.90617984593866]; 
A= [0.23692688505618 0.47862867049937 0.56888888888889 0.47862867049937 
0.23692688505618] ; 

hxl= (a2- al) /Nl1; 
for k=1:Nl+1; 

X] (k)=al+ (k— 1) * hxl1; 
end 
ss= 0; 
for k=1:N1 

for :二 

ta(j)= ((xl1 (k+1)—xl1(k)) *x t(j)+x1 (kt+1)+x]l (k))/2; 
sta(j)=gaussfx2 (fun, ta (Jj) ,bl,b2,cl,c2,N2,N3); 

end 

ss= Sst+ sum(A. * sta) * hxl1/2; 
end 
function ss=gaussfx2 (fun,x],bl],b2,c1,c2,N2,N3) 
t= [- 0.90617984593866 一 0.53846931010568 0 0.53846931010568 0.90617984593866]; 
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A= [0.23692688505618 0.47862867049937 0.56888888888889 0.47862867049937 
0.23692688505618] ; 
if isnumeric (bl1) 
byl= bl; 
else 
byl= feval (bl, x1); $s 若 bl (xz) 是 函数 , 取 其 在 xl 处 的 函数 值 
end 
if isnumeric (b2) 
by2= b2; 
else 
by2= feval (b2, x1); 
end 
hx2= (by2- by]l) /N2; 
for k=1:N2+ 1; 
x2(k)=byl+ (k— 1) * hx2; 


end 
ss= 0; 
for k=1:N2 
for j=1:5 
tb(j)= ((x2 (kt+1)— x2(k)) * t(j)+x2(kt+1)+x2(k))/2; 
sto(i)=qaussfe3(fom zl th} Cl co Ns 
end 


ss= sst+ sum(A. * stb) * hx2/2; 
end 
frmction ss=qaussfxr3(fm, XIL x2,cl; c2,N) 
$s 在 每 个 小 区 间 上 用 Gauss-Legendre 公式 (5 点 ). 
t= [- 0.90617984593866 一 0.53846931010568 0 0.53846931010568 0.90617984593866]; 
A= [0.23692688505618 0.47862867049937 0.56888888888889 0.47862867049937 
0.23692688505618] ; 
if isnumeric (c1) 
czl= cl1; 
else 
czl= feval (cl1, x1, x2); s 若 cl (xy) 是 函数 , 取 其 在 xl,x2 处 的 函数 值 
end 
if isnumeric (c2) 
CZ2= C2; 
else 
CZ2= feval (c2,xl1, x2); 
end 
h= (cz2— cz1) /N; 
s= 0; 
for k=1:N+1 
ccl(k)=czl+h¥x (k—1); 
end 


for k=1:N 
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for j=1:5 
x3(1)= ((cGcl1(kKt1}=ccl(r})} * tO})tocl(kt1l}tocl(k)})/2; 
fx3 (])= feval (fun,x], x2,x3(])); 
号 Fx3(j})s 
if sl==— inf 
S51l=— realmax; 
end 
if sl== jinf 
S51l= realmax; 
end 
fx3(j])= sl1; 
end 
s=s+AxX (fx3)" * h/2; 


end 


和 yz 
例 5.24 计算 三 重 积 分 V = | dy| dz| (ZX 十 2z)sinydx。 
0 0 0 


解 ” 注 意 积分 次 序 为 zz 一 y, 定 义 函数 时 用 此 相反 的 次 序 。 利 用 MATLAB 程序 求 
解 ,建立 MATLAB 脚本 文件 如 下 : 


b2=inline('y','y'); 
2=1nline(t vie gy "0s 
examy 24=inline(" (x+2*% 2z) ¥* sin(y)','y','2Zz,' XxX )7 


V1l= gauss3int (exam5 24,0,pi/4,0,b2,0,c2,10,10,10) 
存 为 ex5_24.m。 在 MATLAB 命令 窗口 调用 ex5_24, 执 行 后 ,屏幕 显示 结果 为 


>> ex 24 
Vl=0.157205682755229 


利用 函数 int 计算 得 积分 的 精确 值 V= 守 V2x 一 字 J2 一 V2 十 BY 必 


8 2 768 
0. 15720568275523 ,可见 计算 结果 比较 精确 。 
例 5.25 求 环 面 的 体积 ,其 球面 坐标 方程 为 o 一 sinp。 


解 ” 一 般 情况 ,立体 图 形 0 的 体积 V ,由 三 重 积分 V = jar 给 出 ,因此 , 环 面 的 体积 VV 
由 下 面 的 三 次 积分 给 出 
V = | 人 sinCPp)dodpd0。 
利用 函数 int 计算 得 V 的 精确 值 V=j。 利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 
文件 如 下 : 


theta= linspace (0,2 关 pi,100); 

phi= theta; 
[X,Y]=meshgrid(theta, phi); 

x= ( (1+ cos (X) ) ./2) . * cos (Y); 
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y= ((l1+ cos (X) ) ./2) . * Sin(Y) ; 

z= sin (X) ./2; 

SUri x YZ) 

c4=inline('sin(phi)"','theta ', Phi '); 

examy 25=inline('"rho’2* sin(phi)"', "theta', "phi", "rho"); 

V2= gauss3int (exam5 25,0,2* pi,0,pi,0,c4,10,10,10) 

err=pi^2/4- V2 s 计 算 精确 值 与 V2 的 误差 


存 为 ex5_25. m。 在 MATLAB 命令 窗口 调用 
ex5_25 ,执行 后 ,屏幕 显示 结果 为 (图 像 为 图 5. 8) 


>>exy 235 

V2= 2.46740110027230 

err= 3.685940441755520e-- 014 

例 5.26 设 空 间 物 体 Q 由 锥 面 x ?十 y 二 x 
的 上 半 叶 和 平面 z= 二 2 围 成 ,其 密度 函数 为 y(x， 
yz) 二 Vx 十 多 , 求 其 重心 。 


0 
重心 坐标 : 
jancrsy,s) dy wear 
" M M ”MM M , 
ges, dy 
ed 
M M ” 


利用 柱 面 坐标 将 三 重 积 分 化 为 三 次 积分 , 则 有 
M = 中 en rm | ao| dr| dz， 


zx [2 [2 
jz Vx" 十 ydV = | do| dr| rcosOdz， 


0 
2x [2 [2 

外 Vr: 二 ydV = | dg| dr| r~ sin0d>， 
0 0 r 

0 


M 
M.,. 
AM， 


2x [2 2 
z Vx 二 ydV = | do| dr| rzdz。 
0 0 六 


隆 私 好 ]-ooae， 


所 以 重心 的 精确 位 置 为 : Wn 
利用 MATLAB 程序 求解 ,建立 MATLAB 脚本 文件 如 下 : 


[X,Y]=meshgrid(-2:0.1:2); 
Z= Sqrt (X. 2+Y.° 2); 

surf (X,Y, 2) 

hold on; 


154 常用 数值 算法 及 其 MATLAB 实 现 


ezmeah( 2 [2 一 22 
funp=inline('r’2','theta', 'r','z"'); 
cl=inline('r','theta', 'r'); 

M= gauss3int (funp,0,2* pi,0,2,c1,2,10,10,10) 
funyz=inline('r^3x* cos(theta)'," theta', ''r','z"');} 
Myz= gauss3int (funyz,0,2* pi,0,2,c1,2,10,10,10) 
funxz= inline('r^3x* sin(theta)','theta', 'r','z"'):; 
Mxz= gauss3int (funxz,0,2*x* pi,0,2,c1,2,10,10,10) 
funxy=inline('r’^2x* 2z"','theta' ,'r','z"); 


Mxy= gauss3int (funxy,0,2* pi,0,2,c1,2,10,10,10) 


存 为 ex5_26. m。 在 MATLAB 命令 窗口 调用 ex5_26, 执 行 后 ,屏幕 显示 结果 为 (图 像 为 
图 5. 9) 


>>ex5 26 
M= 8.37758040957265 

Myz= - 7.771561172376096e- 016 
Mxz= - 7.216449660063518e- 016 


Mxy= 13.40412865531626 
所 以 重心 从 标 为 入, 综 ,如 ]= 一 9. 276622e 一 017 ,一 8. 614002e 一 017,1.6) 守 (0,0， 


1.6) ,近似 计算 的 结果 比较 精确 。 


y -2 -2 


X 


5.9 介 于 锥 面 x 十 y = 二 x 的 上 半 叶 和 平面 z==2 之 间 的 物体 


数值 优化 


pe 


数值 优化 就 是 求 目标 函数 f(x), 受 约束 于 xES 的 极 小 ( 极 大 ) 值 , 当 对 xz 没有 约束 时 ， 
或 等 价 地 S 是 全 域 时 , 称 为 无 约束 优化 ,否则 称 为 约束 优化 。 本 章 主 要 讨论 几 种 无 约束 优 
化 的 算法 及 其 实现 ,如 黄金 分 割 搜索 法 、 二 次 盟 近 法 .牛顿 法 等 。 


E1 一 元 函数 的 极 小 值 


G1.1 黄金 分 割 搜索 法 


1. 功能 

求 闭 区 间 [a,6b5] 上 单 峰 函 数 f(z)( 即 f(xz) 在 [a,6b]| 内 有 唯一 极 小 值 ) 的 极 小 值 。 

2. 计算 方法 

(1) 在 闭 区 间 [a,b | 内 选取 两 点 ,c= 二 a 十 (1 一 r)h,d 二 a 十 rh ,其 中 ,1,6—a, 

(2) 如 果 f(z) 在 a,b 两 点 的 值 几 乎 相等 ( 即 f(a) 守 ff(5)) 有 昌 区 间 长 度 充分 小 ( 即 /= 
0) , 则 停止 迭代 退出 循环 ,并 根据 f(c) 二 f(q)( 或 FCc) 二 Fo)) ,得 所 求解 为 mn=c( 或 盖 
d) ,否则 转向 (3)。 

(3) 如 果 f(c) 三 f(q), 将 区 间 的 右 端 点 5 换 为 4(b<-q); 否 则 将 区 间 的 左 端 点 a 换 为 
c(a<e-c) 。 转 向 (1) 。 

3. 使 用 说 明 


[xp, fp]= goldenopt (fun,a,b,delta,epsilon) 


fun 是 目标 负数 ,a,b 是 区 间 端 点 ,delta 是 横 坐 标的 容 差 ,epsilon 是 纵 坐 标的 容 差 。 输 
出 极 小 值 点 xp 和 极 小 值 fp。 
4. MATLAB 程序 


function [xp,fpl]=goldenopt (fun,a,b,delta,epsilon) 

s 如 果 fun 是 用 M- 文 件 定 义 的 函数 ,调用 时 用 @ , 即 [xp, fp]=goldenopt (@ fun,a,b,delta,epsilon) 或 [xp， 
fp]=golgdenopt ('fun',a,b,delta,epsilon)。 如 果 fun 是 用 内 联 函 数 inline 定义 的 , 则 直接 调用 。 如 ,ff 
=inline('x^2- sin (x) '), 调 用 [xp, fp]= goldenopt (ff,a,b,delta,epsilon) 
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h=b-a; r= (sgqrt (5)—1)/2; c=at+ (1-r) hy d=a+rx*h; 
fc= feval (fun,c); fd= feval (fun,qd); 
if(abs(h)<delta & abs (fc- fd)< epsilon) 
if fc<= fd 
x CGC? fe—= fs 
else 
xp=d; fp= fd; 
end 
else 
上 CQ 
[xp, fp]=goldenopt (fun,a,d,delta,epsilon); 
else 
[xp, fp]= goldenopt (fun,c,b,delta,epsilon); 
end 


end 


例 6.1 求 困 数 f(z) 二 一 sin(x) 一 z 十 所 在 [0， 8,1.6|] 上 的 极 小 值 。 
解 ” 利 用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


ff=inline('— sin (x)— x+x^2/2'); 
ezplot (ff, [0.8,1.61)» 
[xp, fp]=goldenopt (ff,0.8,1.6,0.000000001,0.000000001) 


存 为 ex6_1.m。 在 MATLAB 命令 窗口 调用 ex6_1, 运 行 后 有 如 下 结果 (图 像 为 图 6. 1) 。 


>>ex6 1 
xp= 1 .28342874520606 
fp=—1.41882737360661 


一 1.2| 


一 1.25 


一 1.35 


0.8 0.9 1 Ti 1 本 1 4 1.5 1.6 


2 
6. 1 函数 一 sin(z) 一 z 十 的 图 像 
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G1. 2 ” Fibonacci 搜索 法 


1. 功能 

求 财 区 间 [Lae ,oj 上 单 峰 因数 f(x)( 即 FGz) 在 Lao 内 有 唯一 极 小 值 ) 的 极 小 值 。 

2. 计算 方法 

(1) 设 Fibonacci 数列 为 {Fi})i2o, 即 Fo 二 0,FFi==1,F, 二 Fi 十 F,_1,n 二 2,3,…。 对 给 
定 的 横 坐 标 容 差 s, 求 最 小 的 使 得 "到 


(2) 记 闭 区 间 [a,65] 为 [ao ,bo ] ,在 Lao ,bo 内 选取 两 点 ,co 二 ao 十 (1 一 ro)ho, 和 do 二 ao 十 


ER 
rh ,其 中 9 710 一 Fr 


a 
i 


,ho = 二 bo 一 Qo。 如 果 F(co) 二 Gd), 则 取 Q1 一 (50 , 01 二 bo ,否则 , 取 Cl1 一 


Wo ,D1 一 do o 


Ee 
Fi 


1 
hi 一 0 一 Cl 。 如 果 F 太 (ci)> 大 ad), 则 取 a* 王 cly ps 一 Di ,否则 , 取 Q2 一 4 02 一 dl。 一 般 地 ,6 
在 区 间 [Las ,bi 内 选取 两 点 ,ci 二 a 十 (1 一 ri)hs, 和 qd 一 ar 二 rhs 其 中 ,一 洛 ,h 一 b 一 


(3) 在 区 间 [ai ,b1 内 选取 两 点 | 二 ql 十 (1 一 ri )hi ,和 di 二 al 十 rihi ,其 中 sri — 


ak (k=0,1,* ,nO—3)., 


(4) 当 =n 一 3 时 ,1s 二 符 一 去 ,此 时 cs 与 4d, 重合 为 区 间 的 中 点 , 取 其 为 极 小 
值 点 。 
3. 使 用 说 明 


[xp, fp]= fibopt (fun,a,b,delta) 


fun 是 目标 名 数 ,a,b 是 区 间 端 点 ,delta 是 横 坐 标的 容 差 。 输 出 极 小 值 点 xp 和 极 小 
值 fp。 
4. MATLAB 程序 


function [xp,fp]= fibopt (fun,a,b,delta) 
8 确定 n 使 (b-a)/Fn< delta 
i=1; 
F=1; 
while F<= (b-a)/delta 
F= fib (i); 
i=i+1; 
end 
一 > 
ak= a; 
bk= b; 
for k=1:n—3 
rk= fib(n- 1-k)/fib(n- k); 
hk= bk— ak; 
ck=akt+ (1— rk) 关 hk; 
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dk=akt+ rk* hk; 
if feval (fun,ck)> feval (fun,dk) 
ak= ck; 
else 
bk= dk; 
end 
end 
xp= Ck; 
fp= feval (fun, xp); 
function y= fib(n) 
fb(1)=1; fb(2)=1; 
for j=3:n 
fb(j)=fb(j-1)+fb(J-2); 
end; 


y= fb (n); 


例 6.2 求 果 数 7(z) 一 瑟 一 4z 一 zcos(z) 在 [0.5,2.5j 上 的 极 小 值 。 
解 ” 利 用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


funl= inline('" x^2/2-— 4x x—-xx* cos (x) 7) ， 
ezplot (funl, [0.5,2.5]); 
[xp, fp]= fibopt (fun,0.5,2.5,0.00000001) 


存 为 ex6_2. m。 在 MATLAB 命令 窗口 调用 ex6_2 ,运行 后 有 如 下 结果 (图 像 为 图 6. 2) 。 


>>ex6 2 
xp= 1.89072090776876 
fpo=— 5.18084864167415 


-4 


0.5 1 1 2 < 


2 
6.2 函数 >- 一 4 一 xcos(z) 的 图 像 
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G13 二 次 逼近 法 

1. 功能 

求 闭 区 间 [a,o] 上 单 峰 函数 f(x)( 即 f(x) 在 [a,b] 内 有 唯一 极 小 值 ) 的 极 小 值 。 

2. 计算 方法 

对 三 个 测试 点 { 《zo ,f(zo)) 《zisf(z1)),《zs，f(zz))}, 其 中 zz, 二 zi 二 zs, 求 二 次 插值 
多 项 式 P, (z) ,然后 用 P, (xz) 的 极 小 值 ( 即 P; (x) 二 0 的 根 zi ) 替 换 三 个 点 zx, ,zi ,Xs 中 的 一 
个 ,这 里 

fOr) TI OO— 732) fr) — 26) fxs) (70 一 对) 


3 2 fro xi xo) + fOr) ro xo) + fxs) (xo — zx)]° Ws 3 
特别 地 ,如 果 上 述 三 点 是 等 距 的 ( 即 xs 一 zi 二 Xi 一 zo 二 h), 则 上 述 公 式 变 为 
x; 二 xo 十 hh 了 1 


我 们 一 直 更 新 这 三 点 直到 |zxs 一 zxo| 守 0 或 | f(zs) 一 f(zo)|1 守 0 时 停止 ,并 把 zs 作为 极 小 值 
点 。 更 新 这 三 点 的 规则 如 下 : 

(1) 如 果 zo 近 zs<z, 则 根据 是 否 有 F(zs) 科 FFCzi), 取 {zoyzayzl) 或 {zayzliyzz) 为 新 
的 三 点 。 

(2) 如 果 zi 二 zx; 三 x , 则 根据 是 否 有 F(zs ) 科 FCzl), 取 {ziyzsyzy) 或 {zoyziyzs) 为 新 
的 三 点 。 

3. 使 用 说 明 


[xp, fp]= quadopt (fun,a,b,tolx,tolf) 


fun 是 目标 限 数 ,a,b 是 区 间 端 点 ,tolx 是 横 坐 标的 容 差 ,tolf 是 纵 坐 标的 容 差 。 输 出 极 
小 值 点 xp 和 极 小 值 fp。 
4. MATLAB 程序 


function [xp,fp]= quadopt (fun,a,b,tolx,tolf) 
x0=a;: x2=b; xl1= (x0+ x2) /2: 
f0= feval (fun,x0); fl1= feval (fun,xl1); £2= feval (fun, x2); 
ab= [x0,x]1,x2]; ff= [£0,f£1,f£2]; 
[xp, fp]= quadopt]l (fun,ab, ff,tolx,tolf); 
function [xp,fp]= quadoptl (fun,ab, ff,tolx,tolf) 
x0=ab(l1l); xl=ab(2); x2= ab (3); 
f0=ff(1); fl=ff(2); f£2= ff (3); 
nd= [£0- £2,f£1- £0,f£2— £f1|] 关 [xl1 ¥* xl1 X2 关 X2 x0x x0; xl1 x2 x0]'; 
x3=nd(1) /2/nd (2) ; s(6.1) 式 
f3= feval (fun,X3) ， 
了 abaslxz2— x0})< tolxlabs(fi2—- TO tolf 

XE—X3: .fre=t3; 
else 

el 

了 至 生生 
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ab= [x0,x3,xl1]; ff= [£0,f£3,f1]; 
else 
ab= [x3,x]1,x2]; ff= [f3,f£]1,£2]; 
end 
else 
IE f3<=f£1 
ab= [xl1,x3,x2]; ff= [f]1,f£3,f£2]; 
else 
ab= [x0,x]1,x3]; ff= [£0,f£1,f£3]; 
end 
end 
[xp, fp]= quadopt1 (fun, ab, ff,tolx, tolf); 


end 


例 6.3 求 函 数 f(x)==e-* (1 一 2z) 在 [0.6,1.8] 上 的 极 小 值 。 
解 ”利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


fun2= inline('exp(-x’2) * (1-2x x)"'); 

[xp, fp]= quadopt (fun2,0.6,1.8,0.0001,0.0001) 
ezplot (fun2, [0.5,2.5]); 

disp(' 用 MATLAB 的 fminbnd 程序 检 验 的 结果 为 ') 
[xpl1, fp1]= fminbnd (fun2,0.6,1.8) 


存 为 ex6 3.m。 在 MATLAB 命令 窗口 调用 ex6_3, 运 行 后 有 如 下 结果 (图 像 为 图 6. 3) 。 


>>ex6 3 
xp=1 
fp=—0.36787944117144 
用 MATLAB 的 fminbnd 程序 检验 的 结果 为 
xpl= 1.00001484628902 
fpl=— 0.36787944092819 
exp(-x) (1-2 0) 


0.5 1 1.5 2 FE 
x 


6.3 ”函数 e-* (1 一 2z) 的 图 像 
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G14 三 次 插值 法 


1. 功能 

求 财 区 间 [La ,0 上 单 峰 函数 f(x) 的 极 小 值 。 

2. 计算 方法 

三 次 插值 法 是 在 孔 数 可 导 的 前 提 下 ,利用 两 点 处 的 函数 值 和 导数 值 构造 三 次 多 项 式 
pp(z) 去 通 近 给 定 的 图 数 f(x), 并 将 p(xz) 在 区 间 [a,5j 内 的 极 小 值 点 作为 f(z) 极 小 值 点 的 
一 个 近似 。 从 区 间 La,5bj 进 行 探索 ,此 时 ,p(xz) 的 极 小 值 点 可 表示 为 

加 f(b) 十 z 友 十 = ' 
f° 0)—f (a) 2w 

其 中 ,z==3(f(0) 一 f(a))/B—a)—f (a)—f 0) ,w= Ve —f (a)f (2). 

若 | 了 (zx) | 充分 小 , 则 取 zy 作为 f(z) 的 极 小 值 点 。 否 则 , 视 六 (zx,) 二 0 或 f(x,) 记 0 
取 a 一 x 或 6 二 xs, 然后 对 新 的 区 间 [a,b] 重 复 上 述 过 程 ,直到 | (x,)| 小 于 给 定 的 精度 
为 止 。 

3. 使 用 说 明 


z= a+ (6—a (I (6. 3) 


[xp, fp]= triopt (fun,a,b,ep) 


fun 是 目标 了 钠 数 ,a ,b 是 区 间 端 点 ,ep 是 容 差 。 输出 极 小 值 点 XP 和 极 小 值 fp 。 
4. MATLAB 程序 


function [xp fp]=triopt (fun,a,b,ep) 
if nargin== 
ep= 10~^ (- 6); 
end 
dfun= diff (fun); 
tol= 100; 
while tol> ep 
fa= subs (fun,a); fb= subs (fun,b) ; 
dfa= subs (dfun,a); dfb= subs (dfun, b); 
z=3* (fb- fa)/ (b-a)—- dfa- dfb; 
w= sqrt (z^2- dfa * dfb); 
xp=a+ (b-a) * (1- (dfb+wt+2z)/ (dfb- dfat+2*x w)); 
dfxp= subs (dfun, xp) ; 
tol= abs (dfxp); 
if dfxp<0 
a= xp; 
else 
b= xp; 
end 
end 


fp= subs (fun, xp); 


27’: 十 Xx: 一 12z 十 1 


374 一 973 二 7 二 8 在 | 1 “2 上 上 的 极 小 值 。 


例 6.4 求 困 数 f(z) 二 
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解 ”利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


syms x; 
s 由 于 需要 求 导 ,所 以 目标 函数 需要 定义 为 符号 函数 

fun3= (2 关 X^3+X^2 一 12 关 X+1L)/(3 关 X^4 一 9 关 X^ 3+7*x xt+18); 
[xp, fp]=triopt (fun3,1,2,0.000001) 

disp(' 用 MATILAB 的 fminbnd 程序 检验 的 结果 为 ') 

fun= " (2 关 x^3+x 2— 12¥ xt+1)/(3x* x^4— 9 x^3+7x% x+18)"; 
[xpl1, fpl]= fminbnd (fun, 1,2) 

ezplot (fun3, [1,2]) 


存 为 ex6 4.m。 在 MATLAB 命令 窗口 调用 ex6 4, 运行 后 有 如 下 结果 (图 像 为 图 6. 4) 。 


>>ex6 4 

X= 1.65859123225312 

fp=— 0.62466649801306 

用 MATIAB 的 fminbnd 程序 检验 的 结果 为 
Xxpl= 1.65858608035606 

fpl=— 0.62466649798024 


人 3X3+x2-12 x+1)(3 x49 x3+7 x+18) 


-0.45 


6.4 
G15 牛顿 法 
1. 功能 
求 财 区 间 [Lae ,oj 上 单 峰 田 数 FGz) 的 极 小 值 。 
2。 计 算 方法 
利用 Taylor 展开 得 到 FCz) 的 局 部 二 次 通 近 ， 
Fer Eh a + f(Dh+t DR, (6. 4) 


求 得 上 述 关于 的 二 次 函数 的 极 小 值 点 为 几 一 一 万 外 !。 由 此 可 构造 先 代 公式 ， 


i k=0,1,.…., 


pl 一 9 
f(z) 
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3. 使 用 说 明 
[xp, fp]= newtonopt (fun, x0, ep) 


fun 是 目标 曲 数 ,zx 是 初始 值 ,ep 是 容 差 。 输 出 极 小 值 点 xp 和 极 小 值 fp。 
注 : 牛顿 法 可 能 发 散 或 收 化 到 极 大 值 点 。 
4. MATLAB 程序 


function [xp,fp]=newtonopt (fun,x0,ep) 
if nargin==2 
ep=1.0e— 6; 
end 
dfun= diff (fun); ddfun= diff (dfun); 
tol= 100; 
while tol>=ep 
tol= abs (subs (dfun, x0) ) ， 
Xl1= x0— subs (dfun, x0) /subs (ddfun, x0)，; 
x0= xl1; 
end 
Xp= XO0} 
fp= subs (fun, xp); 


例 6.5 求 困 数 f(x)==0. 5 一 xe-* 在 1 附近 的 极 小 值 。 
解 ”利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


syms x; s 由 于 需要 求 导 ,所 以 目标 函数 需要 定义 为 符号 函数 
ff=0.5—-xx* eXp (一 X^2) ， 

[xp, fp]=newtonopt (ff,1,0.00001) 

disp(' 取 初 值 x0=-0.5 时 的 计算 结果 ') 

[xpl1, fpl]= newtonopt (ff,— 0.5,0.00001) 


存 为 ex6 5.m。 在 MATLAB 命令 窗口 调用 ex6 5, 运 行 后 有 如 下 结果 (图 像 为 图 6. 5)，。 


es ex6 I 


112-x expfx) 
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xp= 0.70710678118655 

fp= 0.07111805751965 

取 初 值 x0=-0.5 时 的 计算 结果 
Xxpl=— 0.70710678118655 

fpl= 0.92888194248035 


当 取 初 值 mm 一 一 0.5 时 , 则 由 6.5 图 可 见 , 此 时 求 出 的 是 f(x) 的 极 大 值 。 
GP Nelder-IMead 方法 


1. 功能 

用 单纯 形 法 求 多 元 困 数 1(X) 的 局 部 极 小 值 。 

2。 计 算 方法 

(1) 设 要 求 f(x,y) 的 极 小 值 。 取 初始 三 点 A,B,C( 在 平面 上 构成 三 角形 -初始 三 角 
形 ), 并 设 有 f(A) 二 f(B) 二 f(C)。 可 称 A 为 最 佳 顶 点 ,B 为 次 最 佳 顶 点 ,C 是 最 差 顶 点 。 

(2) 如 果 这 三 点 或 它们 的 函数 值 充 分 接近 , 则 终止 程序 ,并 将 A 作为 所 求 的 极 小 值 点 。 

(3) 否则 ,我 们 期 望 所 求 的 极 小 值 点 可 能 出 现在 最 差 顶 点 C 的 对 边 AB 上 ( 见 图 6. 6)， 
取 E=M 十 2(M 一 0C), 其 中 M 二 (A 十 B)/2, 如 果 f(E) 二 f(B), 则 取 E 为 新 的 C; 否 则 , 取 
R= 二 (M 十 E)/2 一 2M 一 C, 如 果 fC(R) 二 fC(O), 则 取 R 为 新 的 C; 如 果 f(R) 三 1(B), 则 取 W= 
(C 十 M)/2, 并 且 当 fA(W) 二 f(C) 时 , 取 W 为 新 的 C; 否 则 ,放弃 B,C 两 点 ,并 取 M 和 Ci 三 
(A 十 C)/2 作为 新 的 B,C。 


6.6 Nelder-Mead 方法 中 的 符号 


(4) 转向 (1)。 
(5) 对 nn 维 (nn 二 2) 的 情况 ,在 每 个 子平 面 上 重复 此 算法 , 详 见 程序 neldmeadopt。 
3. 使 用 说 明 


[xp, fp]= neldmeadopt (fun,x0,tolx,tolf,maxiter) 


fun 是 目标 哨 数 ,x。 是 初始 点 (向 量 ),tolx 是 横 坐 标的 容 差 ,tolf 是 纵 坐 标的 容 差 ， 
maxiter 最 大 循环 次 数 。 输 出 极 小 值 点 Xp 和 极 小 值 fp 。 
4. MATLAB 程序 


function [xp,fpl=neldmeadopt (fun,x0,tolx,tolf,maxiter) 
n= length (x0); 
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if n== 
disp(' 输 入 的 初始 点 的 维 数 不 对 ,大 求 一 元 函数 的 极 值 请 选择 其 他 程序 '); 
end 
[Ir,cl= size (x0); 
1 下 2 已 
x0= reshape (x0, c, rr); gs 保证 x0 为 行 回 量 
end 
S=eye (n); 
for j=1:n s 对 子平 面 调 用 此 程序 
jl1=j+1; 
if jl>n 
jl=1;» 
end 
ABC= [x0; x0+S(j,:); x0+S(j1,:)]; 
fABC= [feval (fun,ABC (1, :)); feval (fun,ABC (2,:)); feval (fun,ABC (3,:))]; 
[x0, fp]= neldm (fun,ABC, fABC, tolx, tolf,maxiter); 
了 下 
break; 
end 
end 
XPp= x0; 
function [xp,fp]=neldm (fun,ABC, fABC, tolx,tolf, k) 
[£ABC, sl1]= sort (fABC)，; 
A=ABC(s(1),:); B=ABC(s(2),:); C=ABC(s (3),:); 
fA= fABC (1); fB= fABC (2); fC= fABC (3); fAB= fB- fA; fBC= fC- f£fB; 
if(k<=0)| (abs (fAB)+ abs (fBC)< tolf) | (abs (A- B)+abs (C-— B)< tolx) 
xp=A; fp= fA; 
else 
M= (A+B)/2; E=3x M-2x CC; fE=feval (fun,E); 
if fE< £B, 
C=E; fC= fE; 
else 
R= (M+ E) /2; fR= feval (fun,R); 
和 在 忆 <( 
C=R; fC= £R; 
end 
if fR>=f£B 
W= (C+ M) /2; fW= feval (fun,W); 
if fwW< fC 
C=W; fC= fW; 
else 
B=M; C= (A+ C) /2; fB= feval (fun,B); fC= feval (fun,C) ; 
end 
end 


end 
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[xp, Fpl=neldm(fumn, [A; BC BE ,tolx,tolf k=1)s 


end 


例 6.6 求 图 数 f(x,y,z) 二 2x 十 2y 十 xz? 一 2xy 十 yz 一 7y 一 4z 的 极 小 值 。 
解 ” 建 立 脚 本 文件 ex6_6.m 如 下 : 


ex6=inline('2x x(1) xX x(1)+2x x(2) x x(2)+x(3) 关 和 (3) 一 2 关 和 (1) 关 和 (2) 十 和 (2) 关 x(3)— 
1¥*x(2)—- 4¥* x(3)", x ) 27 

s 精 确 解 为 (1,2,1), 极 小 值 - 9。 

x0= [- 1 0 0]; tolx=0.000000001 tolf= 10^(- 9); maxiter= 500; 

[xp, fp]=neldmeadopt (ex6, x0, tolx,tolf,maxiter) 

[xzos ,fos]= fminsearch (ex6, x0) gs 利 用 MATLAB 上 男 数 fminsearch 检验 


在 MATLAB 命令 窗口 调用 ex6_6 ,运行 后 有 如 下 结果 。 


>>ex6 6 

xp=1.04762734976620 2.09523474622855 0.95239701712456 
fp=— 8.98866292848233 

XOS=0.99995753638163 1.99997926455065 1.00003364912703 
fos=— 8.99999999686024 


注 : 在 定义 目标 函数 时 ,所 有 的 变量 TV 之 需 写 成 用 一 个 变量 工 的 形式 ,然后 用 TX(1), 


Z(2) 分 别 表示 第 一 个 变量 工 , 第 二 个 变量 等 ,否则 无 法 计算 。 也 可 用 function 建立 目标 
函数 。 


63 最速 下 降 法 


1. 功能 
用 最 速 下 降 法 (梯度 法 ) 求 多 元 田 数 f(X) 的 局 部 极 小 值 。 
2. 计算 方法 


(1) 从 初始 点 X 开始 (4 二 1), 沿 着 FFC) 的 负 梯 度 方 向 一 go; 一 一 g(X) 王 一 VFCX ) 一 
9 9 0 
.ph | ,对 B(7) 二/(X_1 一 X81_1/ 上 gi1) 进 行 一 维 搜索 ,用 二 次 通 近 法 求 

XI 


oz ” ”gr EE 


B(7Y) 的 局 部 极 小 值 点 7_1 , 即 得 步 长 Xi 。 


(2) 用 步 长 XI1 沿 一 ge1 方 回 ,构造 下 一 个 点 入, ,XX =X 1 Yig1/ | 8 一 1 | o 
(3) 如 果 XXX , 且 fCXi) 守 fCXi-1), 则 将 XX 作为 所 求 的 极 小 值 点 ,终止 程序 ,和 否 


则 , 转 同 (1)。 


3. 使 用 说 明 
[xp, fp]= gradsopt (fun, x0,gamma0, tolx,tolf,maxiter) 


fun 是 日 标 阴 数 ， 以 字符 形式 定义 ,字符 变量 需 以 字母 顺序 , 即 用 Ky 2 而 不 可 用 yo 等 。 


Xo 是 初始 点 ( 回 量 ), gamma0 是 初始 步 长 ,tolx 是 横 坐 标的 容 差 ,tolf 是 纵 坐 标的 容 差 ， 
maxiter 最 大 循环 次 数 。 输 出 极 小 值 点 xp 和 极 小 值 fp。 
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4. MATLAB 程序 


function [xp,fp]l=gradsopt (fun,x0,gamma0,tolx,tolf,maxiter) 
if nargin<6 
maxiter= 200; 
end 
if nargin< 5 
tolf=1e- 8; $% 要 求 |f(xk)-f(xk-1)|<tolf 
end 
if nargin< 4 
tolx= le- 8; % 要 求 |x(k)-x(k-1)|1<tolx 
end 


[Ir,cl= size (x0); 


证 
X0= reshape (x0, c,r); gs 保证 x0 为 行 回 量 
end 
var= findsym (fun); sfun 的 变量 以 字母 顺序 给 出 
XX= X00} 


fx0= subs (fun,var,x0); 
fxx= fx0; 
gamma= gamma0; 
for J=1:maxiter 
gradf= Jacobian (fun,var); 
grd= subs (gradf, var, xx); 
grd= grd/norm (grd); 
gamma= 2 * gamma; 
fxl= subs (fun,var, xx— 2* gamma * grd); 
for k=1:50 s 用 一 维 搜索 求 最 佳 步 长 gamma 
fx2= fxl1; 
fxl= subs (fun,var, xx— gamma * grd); 
i fx0> Fxlittolf & Frlec fr2 tolf 
gamma=gamma * (一 3 关 fx0+4x* fxl— fx2)/(4*x* fxl—- 2x* fx0— 2*x fx2); 
XXx= XXx— gamma * grd; 
fxx= subs (fun, var, xx); 
break; 
else 
gamma= gamma /2; 
end 
end 
if (norm (xx— x0)<tolx & abs (fxx— fx0)< tolf) 
break; 
end 
XO0= xx; 
fx0= fxx; 
end 


XPp= XX; 
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fp= fxx; 


例 6.7 求 图 数 f(x,y)= 二 十 yy 一 Ty 一 47 一 yy 的 极 小 值 。 
解 ”建立 目标 困 数 文件 及 脚本 文件 如 下 : 


function w= exa6 7 (x,y) 

s 符 号 变量 需 以 字母 顺序 出 现 
syms xy; 

W= XxX 2+y 2- Xxx Y 一 Y 一 4 关 入 7 


将 以 上 了 邵 数 文件 存 为 exa6_7. m。 


x0= [0 0]; xl1l= [1 0]; tolx= le 6; tolf= le- 9; gamma= 1; maxiter= 100; 
[xp, fp]= gradsopt (exa6 7,x0,gamma,tolx,tolf,maxiter) 
[xpl, fpl]= gradsopt (exa6 17,xl1,gamma,tolx,tolf,maxiter) s 取 不 同 的 初 值 


s 精 确 解 : 极 小 值 点 (3,2) , 极 小 值 :-7 
将 以 上 脚本 文件 存 为 ex6_7.m。 在 MATLAB 命令 窗口 执行 ex6_7 ,运行 后 有 如 下 结果 。 


>>ex6 7 

Xp= 2.99995270225745 1.99996846817101 
fp=— 6.99999999826005 

xpl= 3.00000000000000 2.00000000000000 


fpl=-7 

例 6.8 求 图 数 f(w,zx,y,z) 二 2 十 十 十 z?) 一 XOy 十 z 一 w) 十 yz 一 9u 一 3X 一 8y 一 
5z 的 极 小 值 。 

解 ”建立 目标 果 数 文件 及 脚本 文件 如 下 : 


function w=exa6 8(u,x,y,2) 


syms uxyz; 
W=2¥ (Xx 2+y 2+2z OHEHU 2})-—x¥ (ytz-uty* 2-8%Yy- 3%x-5%2-9%1us 


将 以 上 函数 文件 存 为 exa6_8. m。 


x0= [0 1 1 1]; tolx= le- 6; tolf= le-— 9; gamma= 1; maxiter= 100; 
[xp, fp]= gradsopt (exa6 8,x0,gamma,tolx,tolf,maxiter) s 极 小 值 点 为 XP= (uvXxryrZ) 
ww= inline('2¥* (x(1)^2+x(2)^2+x(3)^2+x(4)^2)—x(2) 关 (x(3)+x(4)—-x(1))+x(3) 关 科 (4) 一 8 关 科 (3) 一 
3¥X x(2)—- SX*x(4)—- 9* x(1) ,x'); s 按 此 处 定义 的 xx(1) -对 应 ux(2)- 对 应 x, 
x(3)- 对 应 Yx(4)- 对 应 z, 所 以 极 小 值 点 (的 
坐标 顺序 ) 为 xpl= (u,x,y,z) 
[xpl1, fp1]= fminsearch (ww, x0) s 用 fminsearch 图 数 验 证 


将 以 上 脚本 文件 存 为 ex6 8.m。 在 MATLAB 命令 窗口 执行 ex6_ 8, 运行 后 有 如 下 结果 。 


>>ex6 8 

xp= 1.99999328839829 1.0000168809]589 2.00000174484059 1.00000148766060 
fp=— 20.99999999949473 

xpl=1.9999916956663] 1.00004664768248 1.99997737668049 1.00001753189648, 
fpl=— 20.99999999532794 


第 6 划 数值 优化 


6E4 牛顿 法 


1. 功能 

用 牛顿 法 求 多 元 困 数 /(X) 的 局 部 极 小 值 。 

2. 计算 方法 

(1) 从 初始 点 Xe 开始 (k= 二 1) , 取 A(X) 在 Xe 处 的 二 阶 Taylor 展开 式 ,得 


f(X) 个 Q(X) 一 一 f (Xo) 二 Vf(Xo)' (XO— XX,) + HX— XO)TY XX— Xo), 
(6.5) 
即 QOO)=/CX) + el (X—X) + XX TH, ( 针 一 Xo )。 这 里 ,go = 二 Vf(%),H, =VY’f(X,), 


称 为 上 在 X。 处 的 Hessian 窍 阵 。Q(X) 的 一 个 极 小 值 在 VQ(X) 二 0 或 在 go 十 Ho(X 一 Xo) 一 
0 处 取得 。 当 H, 可 道 , 解 得 关 二 Xo 十 Ho 'g。。 用 XX-_1 蔡 换 X。 ,得 一 般 和 迭代 公式 
X; 一 — Hilige, (6.6) 

其 中 ,gx_1 = 二 VfCX_1) Hi1=Y’?:f(X1).。 

(2) 如 果 XXX , 则 将 X 作为 所 求 的 极 小 值 点 ,终止 程序 。 

注 : (6.6) 式 中 用 Hessian 和 矩阵 的 逆 求 解 ,但 实际 计算 中 用 求解 线性 方程 组 gi 十 
再 (X 一 XX,_1)= 二 0 的 方法 会 更 好 。 

3. 使 用 说 明 


[xp, fp]= newtopt (fun, x0, tol) 


fun 是 目标 限 数 ,以 字符 形式 定义 ,字符 变量 需 以 字母 顺序 。x。o 是 初始 点 ( 回 量 ) ,tol 是 
容 差 。 输 出 极 小 值 点 xp 和 极 小 值 fp。 
4. MATLAB 程序 


function [xp,fpl]=newtopt (fun,x0,tol) 
if nargin<3 
tol= le- 6; % 要 求 |x(k)-x(k-1)1<tol 
end 
var= findsym (fun); Sfun 的 变量 以 字母 顺序 给 出 
fx0= subs (fun,var,x0); 
[r,cl= size (x0); 
3 
x0= reshape (x0, c, rr); $s 保证 x0 为 列 回 量 
end 
tt= 100; 
while tt>=tol 
gradf= Jacobian (fun,var); 
grd= subs (gradf,var, x0);}; 
hessn= Jacobian (gradf,var); 


Hs= subs (hessn,var, x0); 
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b=Hs* x0- grd'; 
xl= Gausselimpiv (Hs, b); s 选 列 主 元 的 Gauss 消 元 法 解 线性 方程 组 , 见 2.2 节 
tt= norm (xl1— x0); 
Xx0= xl1; 
end 
XpP=X0 " ; 
fp= subs (fun, var, xp); 
例 6.9 用 牛顿 法 求 例 6.8 中 的 因数 的 极 小 值 。 
解 在 MATLAB 命令 窗口 调用 程序 newtopt, 运 行 后 有 如 下 结果 。 


>> [xp,fpl= newtopt (exa6 8, [0,0,0,0],0.0001) 

xp= 2.00000000000000 1.00000000000000 2.00000000000000 1.00000000000000 

fp=— 21 

>> [xp,fpl= newtopt (exa6 8, {~- 10,0,15,- 3],0.0001) 

xp= 2.00000000000000 1.00000000000000 2.00000000000000 1.00000000000000 

fp=— 21 

我 们 取 了 不 同 的 初 值 ,部 得 到 了 精确 解 。 这 是 因为 牛顿 迭代 法 具有 二 阶 收敛 性 ,特别 是 
当 f(X) 为 二 次 轴 数 , 且 Hessian 矩阵 HH 正 定时 ,只 需 迭 代 一 步 就 得 到 精确 解 zx” ,具有 这 种 
有 限 迭 代步 求 得 正定 二 次 函数 极 小 值 的 方法 , 称 为 具有 二 次 终止 性 。 


例 6.10 用 牛顿 法 求 函 数 f(x,y) 王 的 极 小 值 。 
解 ”建立 目标 函数 文件 如 下 : 


晤 


function w= exa6 10 (x,y) 

syms xy;} 

z= (x— Y) / (x^2+ Y^2+ 2); 
将 以 上 卫 数 文件 存 为 exa6 10.m。 在 MATLAB 命令 窗口 调用 程序 newtopt, 运 行 后 有 如 下 
结果 。 

>> [xp, fpl]= newtopt (exa6 10, [-0.9,0.2]) 

xp=—1.00000000000000 1.00000000000000 

fp=—0.50000000000000 

经 过 6 次 迭代 收敛 到 (一 1,1), 函 数 FGz,y) 的 一 个 极 小 值 点 。 如 果 取 另 一 个 初始 点 

Zo 一 [一 3, 一 2 进行 迭代 ,我 们 发 现 它 是 发 散 的 。 对 牛顿 法 而 言 , 好 的 初始 值 是 保证 收敛 的 


必要 条 件 。 牛 顿 法 一 般 情 况 下 比 最 速 下 降 法 更 有 效 , 但 不 能 保证 达到 极 小 值 点 。 牛 顿 法 的 
主要 弱点 是 可 能 接近 梯度 为 零 的 极 值 点 , 它 不 必 是 极 小 值 点 ,但 有 可 能 是 极 大 值 点 或 是 鞍点 
见 例 6. 13) 。 
65 共 轴 梯度 法 

1. 功能 


求 N 元 困 数 f(X) 的 局 部 极 小 值 。 
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2. 计算 方法 

(1) 从 初始 点 Xe 开始 (k= 二 0) ,计算 fCXo)。 初 始 化 内 循环 的 指标 j= 二 0, 临 时 解 和 搜索 
方向 向 量 分 别 为 X(j)= 二 Xo,s(j)= 二 一 g4 二 一 Vf(X),V (X) 表 示 f(X) 的 梯度 。 

(2) 对 j= 二 0 到 N 一 1, 重 复 下 列 事情 : 

(GD 对 SG(Cz)=CXGOD) 十 xi(C7)) 进 行 一 维 搜索 ,用 二 次 通 近 法 求 B(7Y) 的 局 部 极 小 值 点 


7; , 即 得 步 长 y;。 
(ii) 更 新 临时 解 和 搜索 方向 向 量 分 别 为 
XC 二 +1) = XO) ys (7), (6.7) 
s(j 十 1) = gjn 二 Bs (I), (6.8) 
其 中 ， 
B= (8 8)8H(FR) 或 B= BBA(PR), (6.9) 
5i851 85j851 


它们 分 别 为 Fletcher-Reeves(FR) 方 法 和 Polak-Ribiere(PR) 算 法 。 

(3) 更 新 近似 解 到 X41 二 X(N), 这 里 X(N) 是 最 后 一 个 临时 解 。 

(4) 如 果 Xi 守 X_1, 且 fCXi) 守 fCXi-1), 则 将 Xi 作为 所 求 的 极 小 值 点 ,终止 程序 。 否 
则 ,转向 (1)。 

3. 使 用 说 明 


[xp, fp]= conjgopt (fun, x0,gamma0, tol,KC) 


fun 是 目标 函数 ,以 字符 形式 定义 ,字符 变量 需 以 字母 顺序 。xe 是 初始 点 (向 量 ) ,tol 是 
容 差 。 输 出 极 小 值 点 xp 和 极 小 值 fp。KC 二 1: Fletcher-Reeves 共 斩 梯 度 法 ,KC=2: 
Polak-Ribiere 共 轨 梯 度 法 ,默认 KC=1。 

4. MATLAB 程序 


function [xp,fp]= conjgopt (fun,x0,gammad0,tol,KC) 
if nargin< 5 
KC= 1; 
end 
if nargin<3 
gamma0= 10»; 
end 
if nargin< 4 
tol= le— 8; 
end 


[Ir,cl= size (x0); 


Eb lp 
x0= reshape (x0, c,r); gs 保证 x0 为 行 问 量 
end 
var= findsym (fun); sfun 的 变量 以 字母 顺序 给 出 


gradf= Jacobian (fun,var); 
XX= X00 


fx0= subs (fun,var,x0); 
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fxx= fx0; 
N= length (X0) ; 
tt= 100; 
k=1; 
while (tt>=tol)&(k< 5000) 
XXx0= xx; fxx0= fxx; grd= subs (gradf,var,xx); ss=— grd; 
for j=1:N 
gamma= gamma0; 
fxl1= subs (fun,var, xx+ 2* gamma * ss); 
for n=1:50 s 一 维 搜索 步 长 
fx2= fxl]; 
fxl= subs (fun, var, xx+ gamma * ss); 
02 fxittol & frl<fr2- tol %fs0> frl< Tx2 
gamma=gamma *x (一 3 关 fx0+4x fxl— fx2)/(4*x* fxl—-2x fx0— 2x fx2); 
Xx= XX+ gamma * ss; fxx= subs (fun,var,xx); 
break; 
elseif n==20 
gamma= — gamma0; 
fx1= subs (fun, var, xx+ gamma * ss); 
else 
gamma= gamma /2; 
end 
end 
XO0= xx; fx0= fxx; 
if j<N 
gradf= Jacobian (fun,var); 
grdl= subs (gradf ,var, xx); 
if KC<=1 
ss=— grdl+ (grdl- grd) * grdl'/ (grdx grd') * ss; 
else 
ss=— grdl+grdl x* grdl'/ (grdqx grd') * ss; 
end 
grd= grdl; 
end 
end 
tt=min (norm (xx— xx0) ,abs (fxx— fxx0) ) 
R=Et1 
end 
XP XX; 
fp= fxx; 


例 6.11 求 函 数 /wszyy, 一 zz 十 到 十 二 十 过 二 
解 ”建立 目标 果 数 文件 及 脚本 文件 如 下 : 


~ 的 局 部 极 小 值 。 


u 


function w=exa6 11 (urxryrZ) 
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syms uxyz; 
W=Xx yx zx ut 1/x+1/yt+1/zt1/u; 


将 以 上 因数 文件 存 为 exa6_11. m。 


x0= [0.7 0.7 0.7 0.7];tol= le- 9; gamma= 10; X]1= [0.5,0.5,0.9,1.1]; x2= [- 0.3,0.5, 
二 世人 人 

[xp, fp]= conjgopt (exa6 11,x0,gamma,tol) 

[xpl, fpl]= conjgopt (exa6 11,x]1,gamma,to]l) s 取 不 同 的 初 值 

[xp2, fp2]= conjgopt (exa6 11,x2,gamma,tol) 


将 以 上 脚本 文件 存 为 ex6 11.m。 在 MATLAB 命令 窗口 调用 ex6_11 ,运行 后 有 如 下 结果 ，。 


>>ex6 11 
Xxp= 0.99999999505510 0.999999995055]0 0.99999999505510 0.99999999505510 
fp=5 
Xxpl=1.0e+ 005 * 
2.98217410755507 2.98217410755554 0.09598063228702 一 5.87614995134436 
fpl=— 5.015826051549534e+ 020 
Xp2= 1.0e+ 003 * 
0.88390740743906 一 2.85938133290123 一 3.08248005606084 一 6.20446278592390 
fp2=— 4.833740265148314et+ 013 


由 此 可 见 , 初 值 对 算法 的 收敛 性 影响 很 大 ,如 果 初 值 不 合适 ,根本 达 不 到 极 小 值 。 


66 拟 牛 起 法 


为 了 避免 牛顿 法 计算 二 阶 导 数 和 矩阵 H(X) 及 其 逆 , 可 将 求解 非 线 性 方程 组 的 拟 牛 顿 法 
用 于 解 方程 VA(X) 二 0, 从 而 得 到 解 无 约束 最 优化 问题 的 拟 牛 顿 法 ,或 称 为 变 尺度 法 。 常 用 
的 有 Davidon-Fletcher-Powell 变 尺 度 法 (简称 为 DFP 法 ) 和 Broyden-Fletcher-Goldfarb- 
Shanno 变 扩 度 法 ( 催 称 为 BFGS 法 )。 


GG1 DFP 法 


1. 功能 
求 多 元 函数 FCX) 的 局 部 极 小 值 。 
2. 计算 方法 
(1) 给 定 初 始点 Xe (CR 王 0) , 取 初 始 矩 阵 再 , 王 百 (Xo) -1 (或 H, 一 工 工 为 单位 矩阵 ) , 令 
go 一 VCX) ,so 三 一 下 ug。 从 初始 点 X。 出 发 , 沿 so 方向 进行 一 维 搜索 , 求 y 使 得 
JCXe 十 yoso) 一 minf (Xo + ys0). 
(2) 令 装 := 二 Xi 十 X41s84-1584 二 Vf(Xi), 由 Hi-1 计 算 Hi， 


_ Hi i yy Hi Ok 
yeHii ye Oo ky 
其 中 ,DD. CD /nd /nd /2 令 st = — Hg ,然后 求 yk 使 f(xX. Tys#) = minf (Xe tT 


ys ) ,得 下 一 次 的 迭代 点 为 筷 +1 一 也 十 Xisx。 


H, = Hi, > k = ] ,2,°"， (6. 10) 
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(3) 如 果 | gi | 一 tol( 可 用 其 他 判别 条 件 ) , 则 将 Xi 作为 所 求 的 极 小 值 点 ,终止 程序 。 
否则 , 转 问 (2)。 
3. 使 用 说 明 


[xp, fp]= dfpopt (fun, x0, tol) 


fun 是 目标 田 数 ,以 字符 形式 定义 ,字符 变量 需 以 字母 顺序 。x 是 初始 点 ( 回 量 ),tol 是 
容 差 。 输 出 极 小 值 点 xp 和 极 小 值 fp。 
4. MATLAB 程序 


function [xp,fp]= dfpopt (fun,x0,tol) 
if nargin<3 

tol= le 一 8; 
end 


[Ir,cl= size (x0); 


LE 本 
x0= reshape (x0, c,r); gs 保证 x0 为 列 癌 量 
end 
var= findsym (fun); sfun 的 变量 以 字母 顺序 给 出 


n= length (XU0) ; 
E= eye (n); 
gradf= Jacobian (fun,var); 
HO=E; 
maxiter= 200; $s 最 大 迭代 次 数 
j=1; 
while(j<maxiter) 
grd= subs (gradf ,var, x0); 
tt= norm (grd); 
a Eo 
break; 
end 
alpha0= 1; 
dir=— HOX grd'; 
[fx,xl1,alpha,exitflagl]= linesear (fun,x0,alphad0,dir); 
if exitflag==-1l 
HO=E; s 重 新 开始 
else 
Ss= XxX1— x0; 
grdl= subs (gradf,var, x1); 
yy= grdl-— grd; 
Hl=H0O+ (s* s')/(s'x* yy'+eps)— (HO< yy'"' * yy * HO)/(yy* HO*x yy'+eps); 
HO= Hl; x0= x1; 
end 
j=J+1; 
end 


xp= x0'; 
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fp= subs (fun, var, xp); 
function [fx,xp,alpha,exitflagl]= linesear (fun,x0,alpha0, dir) 
SLinesearch 线 搜索 
s 输 入 参数 :fun- 目标 函数 :xz0- 初 始点 :alpha0- 步 长 的 初始 值 :dqir- 搜 索 方 向 
s 输 出 参数 :fx- 一 维 搜索 完成 后 (可 能 的 ) 函 数 极 值 : xp- (可 能 的 ) 极 值 点 ;alpha- 可 接受 步 长 ; 
exitflag 等 于 0 表示 线 搜索 成 功 ,等 于 -1 表示 线 搜索 失败 
1=0.15; ”$1- 人 简单 线 搜索 的 参数 , 介 于 0 到 1 之 间 的 数 ,此 处 取 1=0.15 
u=0.85; ”Su- 线 搜索 的 参数 , 介 于 0 到 1 之 间 的 数 ,此 处 取 u=0.85 
rho=0.01; srho- 线 搜索 的 参数 , 介 于 0 到 0.5 之 间 的 数 , 此 处 取 rho=0.01 
if nargin<3 
alpha0= 1; 
end 


alpha= alpha0; 


var= findsym (fun); Sfun 的 变量 以 字母 顺序 给 出 
gradf= Jacobian (fun,var); 
grd= subs (gradf ,var, x0); Eq 数 fun 在 x0 处 的 梯度 


fx0= subs (fun,var,x0); 
gd= dot (grd,dir); 
Xxl1= x0; 
n=1; 
while n<= 50 
fx= subs (fun,var,xl+alpha * dir); 
n=n+1; 
if fx< fx0+alpha* rho* gd; 
xl=xl+alpha * dir; 
exitflag= 0; xp= x1; 
end 
alphal=—- gd* alpha”’2* 0.5/ (fx- fx0- alpha * gd); 
alphal=max (alphal,l1 * alpha); 
alpha=min (alphal,u* alpha); 
end 
exitflag= 0; 
if n>=50 & fx>= fx0 
fx= fx0; xl=x0; alpha= 0; 
exitflag=—1; xp= x1; 


end 


例 6.12 求 函 数 f(x,y) 二 16x? 一 20xy 十 10y’ 一 8y 的 局 部 极 小 值 。 
解 ” 建 立 目 标 九 数 文 件 及 脚本 文件 如 下 : 


function w= exa6 12 (x,y) 

syms xy }; 

Z 一 16 关 x^2— 20*X xx* Y+10 关 y^2- 8¥* y; 

将 以 上 函数 文件 存 为 exa6 12.m。 

x0= [0.1,0.3]; tol=1le-9; xl= [-0.5,0.9]; 
[xp, fp]= dfpopt (exa6 12,x0,tol) 
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[xpl, fp1]= dfpopt (exa6 12,xl,tol) s 取 不 同 的 初 值 
将 以 上 脚本 文件 存 为 ex6 _ 12.m。 在 MATLAB 命令 窗口 调用 ex6_12 ,运行 后 有 如 下 结果 。 


>>ex6 12 

xp= 2/3 16/15 
fp=— 64/15 

xpl= 2/3 16/15 
fpl=— 64/15 


易 验 证 由 两 个 不 同 的 初 值 迭代 得 到 的 都 是 精确 解 , 这 是 因为 目标 晒 数 是 二 次 田 数 ,而 DFP 
法 具有 二 次 终止 性 。 


G62 EFGS 法 


1. 功能 
求 多 元 函数 /(X) 的 局 部 极 小 值 。 
2. 计算 方法 
(1) 给 定 初 始点 X。(k 二 0), 取 初始 和 矩阵 H, 王 再 (X) -1 (或 H, 二 1,T 为 单位 矩阵 ), 仿 
go 二 Vf(Xo),so 一 一 Hogo。 从 初始 点 Xo 出 发 , 沿 so 方向 进行 一 维 搜索 , 求 y 使 得 
f (Xot ys) 一 minf (Xo + ys0). 
(2) 令 半 ,= 二 XX 十 Xiss_1y84 二 Vf(Xi), 由 H,_1 计 算 Hi， 
H; = [一 2 ja [本 2] + k= 1,2,.…, (6.11) 
Gy IJ Gy 
其 中 ,os 一 筷 一 筷 - 大王 么 一 &-1。 令 人 一 一 下 g ,然后 求 xX 使 (XX 十 %Mse) 一 min/ (Xe 十 
%,) ,得 下 一 次 的 迭代 点 为 XI 一 和 十 Xisk。 
(3) 如 果 gi | 二 tol( 可 用 其 他 判别 条 件 ) , 则 将 Xj 作为 所 求 的 极 小 值 点 ,终止 程序 。 
否则 ,转向 (2)。 
3. 使 用 说 明 


[xp, fp]=bfgsopt (fun, x0,tol) 


fun 是 目标 轴 数 ,以 字符 形式 定义 ,字符 变量 需 以 字母 顺序 。x 是 初始 点 ( 回 量 ),tol 是 
容 差 。 输 出 极 小 值 点 xp 和 极 小 值 fp。 
4. MATLAB 程序 


function [xp,fpl]l=bfgsopt (fun,x0,tol) 
if nargin<3 
tol= Je 一 8; 
end 
[Ir,cl= size (x0); 
和 
x0= reshape (x0, c,r); s 保 证 x0 为 列 回 量 
end 


var= findsym (fun); sfun 的 变量 以 字母 顺序 给 出 
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n= length (x0)，; 
E= eye (n); 
gradf= Jacobian (fun,var); 
hessn= Jacobian (gradf, var); 
HO= inv (subs (hessn,var,x0)) 
maxiter= 500; s 最 大 迭代 次 数 
j=1; 
while(j<maxiter) 
grd= subs (gradf,var, XU0) 
tt= norm(grd); 
if tt<tol 
break; 
end 
alpha0= 1; 
dir=— HOX grd'; 
[fx,xl1,alpha,exitflagl]= linesear (fun, x0,alphad0,dir); 
$s 调用 线 搜 索 程 序 linesear, 详 见 6.6.1 节 
if exitflag==-1 
HO=E; s 重 新 开始 
else 
Ss= Xl1— x0; 
grdl= subs (gradf,var,x1); 
yy= grdl— grd; 
Hl= (E- (s* (yy))/(s'* (yy)'+eps)) * HO* (E- (sx* yy)/(s'* (yy)'+eps))'+ (s* 
5')/(s'* (YY) "+eps) ; 
HO= Hl; x0= x1; 
end 
J]=Jt]1; 
end 
Hx 
fp= subs (fun, var, xp); 


现在 ,我 们 用 上 述 几 个 关于 无 约束 优化 的 MATLAB 程序 (包括 fminsearch 和 
fminunc) 去 解 同一 问题 ,期 望 看 出 它们 的 细微 差别 ,感受 它们 的 不 同 。 

例 6.13 ”用 不 同 的 方法 , 求 图 数 f(x,y) 二 (x 一 0.5)?(zx 十 1)? 十 (y 十 1)*(y 一 1)? 的 局 
部 极 小 值 。 

解 ” 目 标 滑 数 的 等 高 线 、 极 大 值 点 、 极 小 值 点 、 鞍 点 描绘 如 图 6.7 所 示 。 
建立 目标 男 数 文件 及 脚本 文件 如 下 : 


function z=exam6 13 (x,y) 

Syms x y; 

= (0. 2* Ct) 2 (yt 2%* (y=1} 2 

存 为 exam6 13.m。 

exa6 13=inline('(x(1)-0.5)^2x (x(1)+1)^2+ (x(2)+1)^2x (x(2)—1)^2"','x') 
[X,Y]=meshgrid(—1.5:0.1:1,—1.5:0.1:1.50); 
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+ 极 小 值 点 


0 款 点 


* 极 大 值 点 


6.7 例 6.13 函数 的 等 高 线 \ 极 大 值 、 极 小 值 和 鞍点 


2 


contour (X,Y,2,13) 

hold on 

scatter(l—1;=1 0505l l= Tl = ll + ") 

hold on 

scatter([-1,-0.25,-0.25,0.5],[0,-1,1,0],"'d") 

hold on 

scatter([- 0.25], [0],"'* "') 

hold off s 如 图 6.7 所 示 


tol= le— 6; tolx=tol; tolf= le- 8; gamma0= 10; maxiter= 100;} 
x0= [0,0]; xl1= [0,0.5]; x2= [0.4,0.7]; x3= [- 0.6,0.5]; x4= [- 0.8,0.6]; 
s 不 同 的 初始 值 
[xOnm, fnm]j=mneldmeadopt (exa6 13,x0,tolx,tolf,maxiter) 
sNedlder- Mead 法 求 极 小 值 点 \ 极 小 值 
[x0gr, f0gr]= gradsopt (exam6 13,x0,gamma0,tolx,tolf,maxiter) 


$ 最 速 下 降 法 求 极 小 值 点 、 极 小 值 


[xOnt, f0nt]=newtopt (exam6 13,x0,tol) 牛顿 法 求 极 小 值 点 . 极 小 值 

[x0cg, £0cg]= conjgopt (exam6 13, x0, garmma0, tol) s 共 示 梯 度 法 求 极 小 值 点 、 极 小 值 
[x0df, £0df]= dfpopt (exam6 13,x0,tol) sDFP 法 求 极 小 值 点 、 极 小 值 

[x0bf, £0bf]=bfgsopt (exam6 13,x0,tol) %BFGS 法 求 极 小 值 点 、 极 小 值 

[x0fs, f0fs]= fminsearch (exa6 13,x0) sfminsearch 法 求 极 小 值 点 \ 极 小 值 
[x0fc, £0fc]= fminunc (exa6 13,x0) sfminunc 法 求 极 小 值 点 、 极 小 值 


将 以 上 脚本 文件 存 为 ex6_13. m。 每 个 程序 是 否 求 得 极 小 值 主 要 取决 于 初始 值 ,我 们 将 
运行 ex6_13 后 的 结果 综合 为 表 6. 1( 注 : 此 处 只 给 出 了 各 程序 由 初始 值 x。 的 迭代 ,由 其 他 
初始 值 的 迭代 , 见 程 序 清单 ex6_13. my) 。 

由 表 6. 1 可 见 , 基 于 梯度 的 优化 程序 ,如 最 速 下 降 法 、 牛 顿 法 、 共 力 梯度 法 和 fminunc 
法 ,有 时 会 求 得 鞍点 其 至极 大 值 ,但 并 不 总 是 达到 最 接近 初始 点 的 极 值 点 。 有 趣 的 是 并 非 基 
于 梯度 的 MATLAB 内 建 程 序 fminsearch 也 有 于 失 的 情况 ,Nedlder-Mead 法 效果 良好 。 从 
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表 6.1 各 种 无 约束 优化 算法 从 不 同 初始 点 的 运行 结果 


ms | 
最 速 下 降 法 0 Po ee 1) 
a” | ‘a 
共 斩 梯度 法 人 Pe 1) 1) 
= 本 


fp h 法 (0.5, 1) (0.0246, 1.0) (0.55 —1) (—1, 1) (—1, 1) 
ee 极 小 丢失 极 小 极 小 极 小 

fn 法 (QO, Ss 0) CO 5 了) EO = == 1 Ea 
En 鞍点 极 小 极 小 极 小 极 小 

同一 初始 点 出 发 ,不 同 的 方法 得 到 结果 不 尽 相 同 。 共 思 f 梯 度 法 的 计算 结果 的 精度 稍 差 一 些 ， 

这 与 一 维 搜索 的 方法 和 所 求 的 步 长 有 关 ，。 


67 模拟 退火 算法 


模拟 退火 算法 (Simulated Annealing Method, 人 简称 为 SA) 是 一 种 通用 的 随机 搜索 算法 ， 
是 局 部 搜索 法 的 扩展 ,理论 上 讲 , 它 是 一 个 全 局 最 优 算 法 。 模 拟 退 火 算法 的 基本 思想 源 于 金 
属 固体 的 退火 过 程 。 当 加 热 固 体 的 温度 升 到 其 溶解 温度 后 ,再 逐渐 冷却 。 加 温 时 ,固体 内 部 
粒子 随 温 升 变 为 无 序 状 ,内 能 增 大 ,而 逐渐 降温 时 粒子 渐 趋 有 序 ,在 每 个 温度 都 达到 平衡 态 ， 
最 后 在 常温 时 达到 基态 ,系统 能 量 减 为 最 小 。 模 拟 退 火 过 程 可 用 在 温度 本 时 ,能 量 水 平 上 
的 Boltzmann 概率 分 布 描述 : 


e- 话 ， (6. 12) 


1 
pl(E) 并 


其 中 为 Boltzmann 篆 数 。 

Kirkpatrick 等 人 把 Metropolis 等 人 对 用 固体 在 恒定 问题 下 达到 热平衡 过 程 的 模拟 引 
入 到 优化 过 程 中 。 即 如 果 

Ar = jzG 十 At) 一 rz) 委 0 (A 二 0)， 

则 接受 新 状态 ,否则 按 概率 p(A/) 二 e- 了 接受 新 状态 。T= 二 T(1) 为 随时 间 1 增加 而 下 降 的 参 
变量 ,相当 于 退火 过 程 中 的 温度 。 这 种 利用 优化 问题 求解 与 物理 系统 退火 过 程 的 相似 性 ,使 
用 Metropolis 算法 ,适当 控制 温度 下 降 的 过 程 ,实现 模拟 退火 ,从 而 达到 求解 全 局 优化 问题 
的 随机 性 方法 称 为 “模拟 退火 算法 ”。 
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1. 功能 

用 模拟 退火 算法 求 多 元 函数 1(X) 的 极 ( 最 ) 小 值 。 

2. 计算 方法 

(1) 选取 初始 值 X。 和 下 界 1, 上 界 ,最 大 迭代 次 数 kmax, 退 火 因 子 go 二 0 和 函数 值 的 
容 差 tolf。 

(全 

(3) 对 k= 二 1 到 kmax, 做 如 下 事情 : 随机 产生 扰动 AX, 得 到 新 点 XI 一 X 十 AX, 要 保证 
新 点 在 区 域 {X|1 委 X 反 zx 内 。 这 里 的 AX 王 gx :IC(Y)(Cux 一 D)( 按 分 量 计算 ) ,其 中 Y 是 UL 一 1， 
11] 上 的 均匀 分 布 的 随机 向 量 ， 


Iy| __ 
gx (y) = sign(y), ly| 志 1， (6. 13) 


六 一 10l (as) ”，g 二 0 为 退火 因子 。 (6. 14) 
如 果 Ar= FI) 一 大 X) 一 0， 
{ 置 X< Xi , 且 当 COX) 二 JXX 时 , 置 XXo<X,AXX 一 COXX)。) 
否则 ， 
(计算 新 点 的 接受 概率 pCAX) 一 exp[ 一 (6 元 人 人， 
产生 UL0,1] 上 的 均匀 分 布 的 随机 数 7, 铬 rr 二 p(AX), 则 置 X<-X)}。 (6.15) 
(4) 将 XX。 视 为 我 们 所 求 的 极 小 值 点 ,也 可 将 XX。 取 为 初始 点 ,然后 用 任 一 (局 部 ) 优 
化 算法 搜索 f(X) 的 极 小 值 点 。 
3. 使 用 说 明 


[xp, fp]= simanlopt (fun,x0,1,u,tolf, kmax, q) 


fun 是 目标 函数 ,x 是 初始 点 ( 行 癌 量 ) ,1,u 分 别 为 搜索 区 间 的 下 上限 ( 行 向 量 ) ,tol 是 
容 差 ,kmax 为 最 大 迭代 次 数 ,9 为 退火 因子 。 输 出 最 小 值 点 xp 和 最 小 值 fp。 
4. MATLAB 程序 


function [xp,fp]= simanlopt (fun,x0,1,u,tolf, kmax,q) 
N= length (x0); 
x= x0;»; fx= feval (fun,x); 
XE Xx» Ee Fx? 
if nargin<7 
qo=1; $s 退火 因子 
end 
if nargin<6 
kmax= 200; $ 最 大 迭代 次 数 
end 
if nargin< 5 
tolf= 1e— 8; 
end 
for k= 0:kmax 
ti= (k/kmax) “gq; 
mu= 10^ (ti* 100) ; $(6.14) 式 
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ddx=mu inv(2* Tand(Size (X) ) 一 Lv mu) . 关 (u-1); s 步 长 

xl1= x+ ddx; 

x1= (x1<1).*1+ (1<=x]1).* (x1<=u) .x xl+ (u<x]1).x*u; $ 确 保 1<=x1l<=u. 
fxl= feval (fun,xl1); 

ddf= fxl1- fx; 


if ddf< 0|rand< exp(-tix ddf/ (abs (fx)+eps) /tolf) 


x=Xxl1: fx= fx]: 


end 
1 x Tp 
XP=X fp= fxl; 
end 
end 
function z=mu inv (y,mu) 当道 mu- 律 (6.13) 式 


z= (((l+mu) .^abs (yY)-1)/mu) .< sign (Y) ; 


例 6.14 求 阴 数 f(zx,y)= 二 x 一 16x* 一 5x 十 y 一 16y 一 5y 在 区 域 { 一 5 三 x 二 5, 一 5 二 
y 夺 5) 内 的 极 小 值 。 
解 ” 建 立 脚本 文件 如 下 : 


fun=inline('x(1)^4-16x*x x(1)^2- 5x*x x(1)+x(2)^4- 16x* x(2)^2- 5x*x x(2)"', 'x'); 


1=[-5-5]; u= [5 5]; s 上 、 下 界 
x0= [0 0]; xl1l= [- 0.5,—-1]; kmax= 500; qdq=1; tolf= le-— 9; 
[zxos, fos|]= fminsearch (fun,x0) s 用 MATLAB 的 妇 数 fminsearch 验证 


[zx1ls,f1ls]= fminsearch (fun,x1) 
[xo sa,fo sal= simanlopt (fun,x0,1,u,tolf,kmax,q) 
[xl sa,fl sal= simanlopt (fun,xl,l1,u,tolf,kmax,q) 


存 为 ex6 14.m。 在 MATLAB 命令 窗口 调用 ex6 14, 运行 后 有 如 下 结果 。 


>>ex6 14 

XOS=2.9035 2.9036 
fos=— 156.6647 
x1ls=—2.7468 -2.7468 
fls=— 100.1178 

XO sa=2.9211 2.9027 
fo sa=— 156.6J39 

xl1 sa=2.9040 2.9030 
fl sa= 一 126.6646 


由 于 模拟 退火 算法 是 随机 搜索 算法 ,所 以 每 次 运行 的 结果 可 能 有 差异 。 多 次 执行 ex6_ 
14 的 结果 显示 ,即使 其 他 算法 失败 的 情况 下 ,模拟 退火 算法 也 可 给 出 全 局 最 优 解 。 但 它 并 
不 总 是 成 功 , 它 的 成 功 / 失 败 部 分 依赖 于 初始 值 , 部 分 笔 运 气 , 而 其 他 程序 的 成 功 / 失 败 仅 依 
赖 于 初始 值 。 


遗传 算法 (Genetic Algorithm ,简称 GA) 是 由 美国 的 J. Holland 教授 于 1975 年 提出 
的 , 它 是 一 类 借鉴 生物 界 自然 选择 和 自然 遗传 机 制 的 随机 全 局 搜索 算法 。 遗 传 算法 模拟 自 
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然 选 择 和 自然 遗传 过 程 中 发 生 的 繁殖 .交叉 和 基因 突变 现象 ,在 每 次 迭代 中 都 保留 一 组 候选 
解 ,并 按 某 种 指标 从 解 群 中 选取 较 优 的 个 体 , 利 用 遗传 算 子 (选择 .交叉 和 变异 ) 对 这 些 个 体 
进行 组 合 , 产 生 新 一 代 的 候选 解 群 ,重复 此 过 程 ,直到 满足 某 种 收敛 指标 为 止 ( 见 图 6. 8)。 
与 传统 搜索 算法 不 同 ,遗传 算法 从 一 组 随 
机 产生 的 称 为 “种 群 (population)” 的 初始 解 开 
计算 个 体 适 应 度 值 


始 搜索 过 程 。 种 群 中 的 每 个 个 体 都 是 问题 的 一 
个 解 , 称 为 “染色体 (chromosome)”。 染 色 体 是 
一 串 符号 ,比如 一 个 二 进 制 字符 串 。 这 些 染 色 
体 在 后 续 迭 代 中 不 断 进 化 , 称 为 遗传 。 在 每 一 
代 中 用 “适度 值 (fitness)” 来 测量 染色 体 的 好 
坏 , 生 成 的 下 一 代 染 色 体 称 为 后 代 (offspring)。 
后 代 是 由 前 一 代 染 色 体 通过 交叉 (crossover) 或 
者 变异 (mutation) 运 算 形 成 的 。 在 新 一 代 形 成 
过 程 中 ,根据 适度 的 大 小 选择 部 分 后 代 , 淘 汰 部 
分 后 代 。 从 而 保持 种 群 大 小 是 常数 。 适 值 高 的 
染色 体 被 选中 的 概率 较 高 ,这 样 经 过 奉 干 代 之 


所 有 染色 体 (个 体 ) 的 | 工 
适应 度 都 几乎 相等 ? 


6.8 遗传 算法 流程 图 后 ,算法 收敛 于 最 好 的 染色 体 , 它 很 可 能 就 是 问 
题 的 最 优 解 或 次 优 解 。 
遗传 算法 的 主要 步骤 如 下 : 


(1) 编码 : GA 在 进行 搜索 之 前 先 将 解 空 间 的 解数 据 表示 成 遗传 空间 的 基因 型 串 结构 
数据 ,这 些 串 结构 数据 的 不 同 组 合 便 构 成 了 不 同 的 点 。 

(2) 初始 群体 的 生成 : 随机 产生 NN 个 初始 串 结构 数据 ,每 个 串 结构 数据 称 为 一 个 个 体 ， 
NN 个 个 体 构 成 了 一 个 群体 。GA 以 这 NN 个 串 结构 数据 作为 初始 点 开始 迭代 。 设 置 进化 代 
数 计数 器 1<-0; 设 置 最 大 进化 代数 TT; 随机 生成 M 个 个 体 作为 初始 群体 P(0)。 

(3) 适应 度 值 评估 检测 : 适应 性 函数 表明 个 体 或 解 的 优 劣 性 。 对 于 不 同 的 问题 ,适应 
性 函数 的 定义 方式 也 不 同 。 根 据 具体 问题 ,计算 群体 P(Cz) 中 各 个 个 体 的 适应 度 。 

(4) 选择 : 选择 的 目的 是 从 当前 群体 个 选 出 优良 的 个 体 , 使 它们 有 机 会 作为 父 代 为 下 
一 代 繁 殖 子 孙 。 遗 传 算法 通过 选择 过 程 体现 这 一 思想 ,进行 选择 的 原则 是 适应 性 强 的 个 体 
为 下 一 代 贡 献 一 个 或 多 个 后 代 的 概率 大 。 选 择 实现 了 达尔 文 的 适 者 生存 原则 。 

(5) 交叉 : 交叉 操作 是 遗传 算法 中 最 主要 的 遗传 操作 。 通 过 交叉 操作 可 以 得 到 新 一 代 
个 体 ,新 个 体 组 合 了 其 父辈 个 体 的 特性 。 交 叉 体 现 了 信息 交换 的 思想 。 

(6) 变异 : 变异 首先 在 群体 中 随机 选择 一 个 个 体 , 对 于 选中 的 个 体 以 一 定 的 概率 随机 
地 改变 串 结构 数据 中 某 个 串 的 值 。 同 生物 界 一 样 ,GA 中 变异 发 生 的 概率 很 低 ,通常 取 值 在 
0. 001 一 0.01 之 间 。 变 异 为 新 个 体 的 产 中 提供 了 机 会 。 

(7) 终止 条 件 判 断 : 若 1 志 TT, 则 <-t 十 1, 转 到 (2); 若 tT, 则 以 进化 过 程 中 所 得 到 的 具 
有 最 大 适应 度 的 个 体 作 为 最 优 解 输出 ,终止 计算 。 

1. 功能 

用 遗传 算法 求 N 元 函数 A(X) 在 范围 : [三 Xu 的 极 ( 最 ) 小 值 。 
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2. 计算 方法 

第 0 步 。 取 初 值 xo 二 [xo,…,Zzonj ,下 办 1 二 [lo,…,lnj],， 上 界 w= 二 [uo ,… ,unj, 群 体 
大 小 N ,向 量 Ns 二 [Na ,…, Non | 的 分 量 由 每 个 变量 zx; 的 指定 的 二 进 制 符号 串 的 长 度 构 
成 ,P. 为 交叉 概率 ,P, 为 变异 概率 ,学 习 效 率 7(0 二 ?和 1) 和 最 大 迭代 次 数 Au 。 注 意 : 群体 
大 小 N， 不 能 大 于 2% ,以 免 有 重复 染色 体 , 且 为 偶数 以 便 在 交叉 过 程 中 配对 。 

第 1 步 随机 产生 初始 群体 。 

令 x 二 xo, 广 二 f(xo), 并 令 

Xi(1) 一 xo， Xik)=1+rand’ (uu—[l), k=2,.%,N,, (6. 16) 

这 里 rand 是 N 维 随机 向 量 。 然 后 对 群体 组 的 每 个 数 进行 二 进 制 编码 , 置 


7 一 ] m 
有 (7n,1 十 2 Ni: 2 Ns )= Xl (n,m) 的 No 位 的 二 进 制 串 表示 
i=] i=1 


Xi1 (nm) 一 上 (72 ) 
MK(C7) 一 LO72) ” 


1 一 ]… 人 和 ,72 = 1°…N, C0 47) 


= (2Mm — 1) 


这 样 ,整个 群体 变 为 二 元 组 , 它 的 每 一 行 是 用 > Ns 位 的 二 进 制 串 表示 的 一 个 染色 体 。 


第 2 步 对 上 二 1 到 ,做 下 列 事情 : 
(1) 将 二 元 组 中 的 每 个 数 解码 成 (十 进 制 ) 小 数 , 其 中 


m—1 m 
nm) 一 Pi (1 十 >》 Ns: > Ne) 的 Ns, 位 的 十 进 制 小 数 表示 
i= 1 i=] 


=Pi ns *) ER + Lm), n= 1 ,N,,m = 1,*.…,N, (6.18) 


并 计算 每 一 行 Xi(n,: ) 二 x(n) 对 应 的 染色 体 的 也 数 值 (nm) ,并 求 得 极 小 者 fw 二 /Cn6), 对 
应 于 Xi(n,,: ) 一 X(725 ) 。 

(2) 如 果 fs 三 Fo ) 到 户 , 则 令 闫 = Fe) x? = 二 x(n,)。 

(3) 将 函数 值 转化 为 适应 度 值 ,其 值 为 


N 
fi(n) = Max{ /(n)) Ee (6.19) 


(4) 如 果 Max{/(m)} 守 0, 则 终止 程序 ,并 将 作为 x 最 优 解 。 否 则 ,为 在 下 一 代 中 在 最 
优点 x(n,) 附 近 制 造 更 多 的 染色 体 ,用 下 面 的 复制 规则 


x(n) x ty xb) 一 xD))， (6. 20) 
J b 


由 此 可 得 新 群体 X41 ,这 里 41(n,:) 二 x(n) ,并 将 其 按 (6.17) 式 编码 ,构成 新 的 二 元 组 Pi+i 。 
(5) 从 二 元 组 的 行 指标 中 随机 配对 染色 体 。 
(6) 对 两 个 随机 相互 配对 的 染色 体 ,依据 交 叉 概 率 P, 按照 从 某 个 随机 位 后 的 方式 , 相 
互 交 换 其 部 分 基因 ,得 到 两 个 新 的 个 体 , 从 而 形成 新 的 二 元 组 Pt+i 。 
(7) 利用 变异 概率 P; ,对 Pt 的 ( 行 ) 染 色 体 的 随机 位 进行 逆反 ,形成 新 的 二 元 组 Pt 。 
3. 使 用 说 明 


[xm, fm]= genetic (fun, x0, 1,u,Np,Nb,Pc, Pm,eta, kmax) 
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fun 是 目标 负数 ;xo 是 初始 点 ( 行 向 量 );1,u 分 别 为 搜索 区 域 的 下 、 上 界 ( 行 问 量 ) ;NN, 为 
群体 规模 ,建议 的 最 优 参 数 范围 是 : N, 二 20 一 100;N 为 每 个 数 的 二 进 制 位 数 ; P. 为 交叉 概 
率 ,建议 的 最 优 参 数 范 围 是 : P.=0. 4 一 0.9; 忆 , 为 变异 概率 ,建议 的 最 优 参数 范 围 是 : P,, 一 
0.001 一 0.01;eta 为 学 习 效 率 (0 二 eta 三 1) ;kmax 为 最 大 迭代 次 数 (一 般 100 一 500) 。 输 出 最 
小 值 点 xm 和 最 小 值 fm。 

4. MATLAB 程序 


function [xm,fm]l= genetic (fun,x0,1,u,Np,Nb,Pc,Pm,eta, kmax) 
N= length (x0);，; 
if nargin< 10 

kmax= 100; gs (一 般 100~ 500) 
end 
If nargin< 9|eta>1l|leta<=0 

eta=1; s 学 习 效 率 (0< eta<=1) 
end 
if nargin<8 

Pm= 0.01; 变异 概率 ,建议 的 最 优 参 数 范围 是 :Pm= 0.001~ 0.01 
end 
if nargin<7 

Pc=0.5; $ 交 叉 概 率 ,建议 的 最 优 参 数 范围 是 :Pc=0.4~0.9 
end 
if nargin<6 

Nb= 8 * ones (1,N); 
end 
1 narginec 5 

Np= 20; s 和 群体 规模 ,建议 的 最 优 参数 范围 是 :Np= 20- 100 
end 
s 初 始 化 群体 组 
NNb= sum (Nb); 
xnm= x0(:)"'; 
二 
fm= feval (fun, xm); 
X(1,:)= xm; 
for n=2:Np 

X(n,:)=1+rand(size(x0)).* (u-1); $$(6.16) 式 
end 
P= gen encode (X, Nb,1,u); s(6.17) 式 
for k= 1:kmax 

X= gen decode (P, Nb,1,u); s(6.18) 式 

for n=1:Np 

fx(n)= feval (fun,X(n,:)):; 

end 

[fxb,nb]=min (fx); 

if fxb< fm, 

fm= fxb; xm=X(nb, :); 


end 
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fX]1=max (fX)- fx; (6.19) 式 ,构造 非 负 的 适应 度 向 量 
fxm= £fX1 (nb); 
if fxXm< eps 
return; s 当 所 有 的 染色 体 几 乎 一 致 时 ,退出 
end 
$s 复制 下 一 代 
for n=1:Np 
X(n,:)=X(n,:)+etax (fxXm-— fX1 (n))/fXxmx (Xx(nb,:)—-X(n,:)); s(6.20) 式 
end 
P= gen encode (X, Nb,1,u); 
s 配 对 /交叉 
mat= Shufflje([1:NP]):; 
for n=1:2:Np-1 
if rand< Pc 
P(mat(n:nt+ 1),:)=crossover(P(mat (n:nt+ 1),:),Nb); 
end 
end 
变异 
P=mutation (P, Nb, Pm); 
end 
function P=gen encode (X,Nb,1,u) 
s 将 x 的 每 个 个 体 编码 成 二 进 制 串 
Np= size (X, 1); 群体 规 模 。 N= length (Nb) ; 
for n=1:Np 
b2= 0; 
for m=1:N 
bl=b2+1; b2=b2+ Nb (m); 
Xnm= (2°Nb (m)—1)* (X(n,m)-—1(m))/(u(m)-1(m)); %(6.17) 式 
P(n,bl:b2)= dec2bin (Xnm, Nb (m) ); 
end 
end 
function X= gen decode (P,Nb,1,u) 
$s 解码 二 进 制 串 成 为 x 的 个 体 状态 
Np= size (P,1); 
N= length (Nb) ; 
for n=1:Np 
b2= 0; 
for m=1:N 
bl=b2+1; 
b2=bl+ Nb (m)—1; 
X (n,m)=bin2dec(P(n,bl:b2)) * (u(m)—1(m))/(2^Nb(m)—1)+1 (m); s(6.18) 式 
end 
end 


function chrms2= crossover (chrms2, Nb) 


s 两 个 染色 体 的 交叉 
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Nbb= length (Nb) ; 
b2= 0; 
for m= 1:Nbb 
bl=b2+1; 
bi=bl+mod (floor (rand * Nb (m) ) ,Nb (m) ) ; 
b2=b2+ Nb (m) ; 
tmp= chrms2 (1, bi :b2); 
chrms2 (1,bi:b2)= chrms2 (2,bi:b2); 
chrms2 (2, bi :b2)= tmp; 


end 
function P=mutation (P, Nb, Pm) $86 变异 
Nbb= length (Nb) ; 
for n=1:size(P,1) 
b2= 0; 
for m= 1:Nbb 
if rand< Pm 
bl=b2+1; 
bi=bl+mod (floor (rand * Nb (m) ) ,Nb (m) ); 
b2= b2+ Nb (m); 
if P(n,bi)== "1" 
P(n,bi)=int2str (0); 
else 
P(n,bi)=int2str (1); 
end 
end 
end 
end 


function mat= shuffle (mat) 
IL= length (mat); 
for n=L:—1:2 

ss=ceil (rand¥* (n— 1)); 


tmp=mat (ss); 


mat (ss)=mat (n); 
mat (n)= tmp; 
end 
例 6.15 考察 二 元 限 数 
f(x) 一 对 一 12zi — 4zi+ x; — 16x2— 5x; 一 20cos(zl 一 2.5)cos(zs 一 2.9)， 
(6.21) 
其 梯度 回 量 困 数 为 
47z1 一 24zl 一 4 十 20sin(zl 一 2.5)cos(Czs 一 2.9) 
g(xX) 一 VCr) = 
4z3 一 32z; 一 4 十 20cos(zl 一 2.5)sin(zy 一 2.9) 
0 9 个 零点 4 …,4 ,利用 二 阶 偏 导数 可 判断 这 些 点 是 否 为 f(x) 极 值 或 鞍点 , 详 
情 见 表 6. 应 用 Nelder-Mead 算法 、SA 算法 .GA 算法 和 MATLAB 的 fminunc 角 数 、 


: (6. 22) 


第 6 章 数值 优化 和/ 


fminsearch 果 数 求 目标 另 数 (6. 21) 的 极 小 值 。 
表 6.2 函数 (6.21) 的 极 值 点 、 鞍 点 


4i1(0. 6965， 一 0. 1423) 一 M- 极 大 值 
A,(2.5463 , —0. 1896) S- 鞍 点 

4;(2. 5209, 2. 9027) 后 G- 全 局 最 优 ( 最 小 ) 
44 (一 0.3865，2. 9049) 十 S 

Ai (一 2. 6964，2. 9031) 十 m- 极 小 值 

4i (一 1. 6926， 一 0. 1183) 一 S 

4; (一 2.6573， 一 2. 8219) 十 m 

4 (一 0.3227， 一 2.4257) 十 S 

4,(2.5216， 一 2. 8946) 十 m 


一 站 一 站 


6.9 函数 (6.21) 的 图 像 


6.10 ”函数 (6.21) 的 等 高 线 、 极 大 值 \ 极 小 值 和 鞍点 
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解 ”建立 目标 郴 数 及 脚本 文件 如 下 : 


exa6 15=inline(" x(1) 4 一 12 关 工 (1) 2 一 4 关 工 (1) 十 和 (2) 4- 16¥% x(2) 2- 5¥% x(2)— 20% 
cos (x(1)—2.5) 关 Cos (x(2)—-2.9)"','x"'); 
xl=— 4:0.1:4; 
Xx2=— 4:0.1:4; 
[Xl1,X2]=meshgrid (x]1, x2); 
for m= 1:1length (x1) 

for n=1:1length (x2) 

F (n,m)= feval (exa6 15, [xl (m)x2 (n) 1]); 


end 
end 
figure (1) ,clf,mesh (X1, X2, F,) s 绘 图 , 见 图 6.9 
fligure (2),clf, 
contour (x1, x2,F, [- 125- 100- 75- 50- 40- 30- 25- 20 0 50] ) s 等 高 线 图 , 见 图 6.10 


text (0.6965,0.1423,"* Al') 

text (2.5463 ,—0.1896,"* A2") 

tent (2.520972.9021,"* BA3") 

text (—- 0.3865,2.9049,"'* A4') 

text (—- 2.6964,2.9031,"'* Ay') 

text (- 1.6926 ,0.1183,'* A6') 

Lexb(=2a20013 -20019."% BA" 

text (— 0.3227,— 2.4257,"* A8') 

text (2.5216,— 2.8946,'* A9') 

人 

tol= le— 9; 

maxiter= 200; 

qo=1; 

x0= [0,0]; xl= [0,1]; 

x2= [1,1]; x3= [0,1]; 

x4= [-1,1]; x5= [- 1,0]; 

x6= [一 1 一 1]7> x [0,—1]; 

x8= [1,—1]; x [2,2]; 

0= [2 -213 

Np= 30; Nb= [16,16]; 

Pc=0.5; Pm= 0.01; 

eta=1; kmax= 200; 

[xznm0, fnm0]= neldmeadopt (exa6 15,x0,tol,tol,maxiter) 
[xsn0, fsn0]= simanlopt (exa6 15,x0,1,u,tol,kmax,q) 
[xgen0, fgen0]= genetopt (exa6 15,x0,1,u,Np,Nb,Pc,Pm,eta, kmax) 
[xfs0, ffs0]= fminsearch (exa6 13,x0) 

[xfc0, ffc0]= fminunc (exa6 195,x0) 


存 为 ex6_15. m( 注 : 此 处 只 列 出 了 各 种 算法 在 x0 的 迭代 ,在 其 他 初始 点 的 迭代 见 程序 清单 
ex6 15. m) 。 我 们 将 运行 ex6 15 后 的 所 有 结果 填 在 了 表 6. 3 中 。 
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表 6.3 几 种 优化 程序 所 达到 的 点 


达到 的 点 
初始 点 
Zo 一 (0，0) A;/m 
Zi 一 (1，0) 43/G 
zz 一 (1，1) A;3/G 
Zs 一 (0，]1) A;3/G 
Z4 一 (一 1，]1) As/m 
Xs 二 (—1, 0) A;/m 
Z6 一 (一 1， 一 ]) Ari/m 
XxX? 三 (0, 一 1) Ar/m 
Zs 一 (1， 一 ]) As/m 
zo = (2, 2) A;/G 
Zio 一 (一 2， 一 2) 47 17 


从 表 6. 3 可 见 , 从 初始 点 zs 二 (1,1) ,zs 一 (0,1),ze 王 (2,2) 或 zi 一 (1,0) 出 发 ,最 易 求 
得 全 局 最 优 解 。 若 从 z= 二 (一 1,1) 或 x 二 (一 1,0) 出 发 ,很 可 能 接近 局 部 最 优 4, 。 无 论 从 
哪个 初始 点 开始 ,全 局 最 优化 算法 SA 和 GA 的 工作 状态 都 良好 ,尽管 它们 不 总 是 求 得 全 局 
最 优 解 。 值 得 注意 的 是 ,经 过 多 次 执行 程序 发 现 SA 每 次 求 得 的 结果 变化 比较 大 ,不 是 很 稳 
定 , 而 GA 求 得 的 结果 比较 稳定 。 
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短 阵 特征 值 写 特征 癌 量 的 计算 


7 
一 
Ht 


在 许多 物理 学 、 力 学 和 工程 技术 等 问题 中 ,经 常会 遇 到 求 n 阶 方 阵 A 的 特征 值 与 特征 
癌 量 的 问题 。 当 和 矩阵 4 为 实 对 称 和 矩阵 且 其 阶 数 不 大 时 ,可 采用 Jacobi 方法 求 其 全 部 特征 值 
和 特征 向 量 。 计 算 一 般 实 和 矩阵 特征 值 的 最 有 效 方法 是 QR 方法 。 它 首先 用 正 交 相似 变换 将 
实 和 矩阵 约 化 为 上 Hessenberg 矩阵 ,然后 再 计算 Hessenberg 和 矩阵 的 特征 值 。 用 QR 方法 求 
出 特征 值 后 ,可 用 反 才 方法 求 其 相应 的 特征 辐 量 。 
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7.1.1 化 矩阵 为 上 Hessenberg 和 矩阵 


1. 功能 

将 实 和 矩阵 正 交 相 似 约 化 为 上 Hessenberg 和 矩阵 。 

2. 计算 方法 

设 wER", 且 mwl :=1, 则 矩阵 五 王 TI 一 2ww: 称 为 Householder 变换 或 Householder 算 
阵 。 设 交 阶 方 矩 阵 4 一 (aa ad) ,其 中 改 是 4 的 第 & 列 构成 的 向 量 。 设 w 一 
(ak ya yy ay) ,由 和 定理 知 ,存在 Householder 和 矩阵 P, 使 得 Pj,(ayy ,yazan)' 二 (a,， 


n 


时 
站 9 其 中 mx 一 一 SlgnCaQkHIA ) ( > a) Pp, 的 构造 : 令 Ww 


j=k+1 


dp Yk 
| ww 一 大 |， 
P,,…,P,_;, 后 ,H 二 P,_,…P,PiAP,…P,_, 就 是 上 Hessenberg 和 矩阵。 由 于 P 是 对 称 正 交 算 
阵 , 令 P= 二 P,P,…P,-;, 则 P 是 正 交 和 矩阵 , 且 P'AP=H. 
3. 使 用 说 明 


;NP, =I— 2ww’' ,k=1,2,° ,nO—2,。, 这 样 对 A 实施 2 次 正 交 相似 变换 Pp 9 


[H,P]=hessenb (A) 


输入 实 方 阵 4, 执 行程 序 后 ,返回 4 的 上 Hessenberg 矩阵 H 和 正 交 和 矩阵 P 使 得 H = 
P 4P。 当 4 为 对 称 和 矩阵 时 ,返回 三 对 角 和 矩阵 。 


4. MATLAB 程序 


function [H,Pl]= hessenb (A) 


[n,n]= size (A); 


E= eye (n); 


Pl=E; 


for k=1:n—2 


=— sign(A(kt+1,k)) * norm(A(kt+1:n,k)); 
W(l1:k)= zeros (1, k); 

W(kt+ 1)= (A(kt 1,k}+ Ss); 
W(k+ 2:n)=A(kt 2:n, Kk) '"'; 


if norm(W)~=0 


end 


P=E- 2x* W" * W; 


A=Px*xA*P; 
Pl=Px Pl; 
end 
H=A; 
P= Pl1; 


W=W/norm (W); 


例 7.1 用 正 交 相似 变换 化 矩阵 4 三 


矩阵。 


解 ”用 MATLAB 程序 计算 。 在 MATLAB 命令 窗口 输入 矩阵 4 ,调用 程序 hessenb 即 


得 如 下 结果。 


人 


15] 


>> [H,P]=hessenb (A) 


H= 3.0000 
12 .2882 
0.0000 
-0.0000 
0.0000 
0.0000 
P=1.0000 
0 


0 
0 
0 
0 


2.0345 
Ze T1002 
9 7369 
0.0000 


-0.0000 
-0.0000 


0 
Ug 


二 人 


0.3376 


本 
二 


4.4446 
1 .5024 
12.5066 
10.8440 
0.0000 
0.0000 
0 
0.1628 
0.8647 
一 0.3268 
二 
二 人 ZU 


3.9089 
1.0678 
Ja0i21 
9.3089 
Zs10639 
0.0000 


0 


二 已 


0.3266 
0.8720 


-0 1351 
=0.0932 


3 


4.9688 
3.3374 
7.2730 
14.9474 
11as0919 
0.7978 


0 
—0.0814 
一 0.1942 
-0.0184 

0.2316 
一 0.9429 


第 7 


= iA 
= 1043 
-1 060006 
= 09915 
-5 1834 
-015f 


0 
0.2441 
0.2983 
0.1363 
0.8984 
0.1603 
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15 


| 


15 
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常用 数值 算法 及 其 MATLAB 实 现 


7.12 和 矩阵 的 QR 分 解 


1. 功能 

将 实 和 矩阵 分 解 为 正 交 和 矩阵 与 上 三 角 乍 阵 的 乘积 。 

2. 计算 方法 

用 ?7 一 1 次 Householder 变换 将 n 阶 和 矩阵 A 化 为 正 交 和 矩阵 与 上 三 角 和 矩阵 的 乘积 。 由 害 
理 知 ,存在 Householder 矩阵 Ps 使 得 Pi (ak yax aux)I 一 (ayat m0, ,0)T 二 y,， 
其 中 二 一 sign(amx)。 (2 站 忆 的 构造 : 令 w= 了 于 一 和-' 则 已 一 [一 2wwT, 一 
1,2,…,7 一 2。 这 样 对 4 实施 一 1 次 正 交 变换 Pi ,P,,…,P,_1 后 ,R 二 P,_1…P,P1A 就 是 上 
三 角 和 矩阵 。 由 于 P 是 对 称 正 交 算 阵 , 令 P= 二 P,_1…P,Pi,Q 二 P' , 则 P,Q 是 正 交 和 矩阵 , 且 4 人 4 三 
QR。 由 于 对 A 实施 正 交 变换 P; 时 , 它 不 改变 A 的 前 & 一 1 行 ,所 以 R 的 第 k& 列 (理论 上 ) 就 
是 y; , 故 程序 中 直接 令 yi 为 R 的 第 & 列 。 

3. 使 用 说 明 


[Q, RI]= QRDecomhouse (A) 


输入 实 方 阵 4 ,执行 程序 后 ,返回 正 交 和 矩阵 Q 和 上 三 角 和 矩阵 R 使 得 A 一 QR 。 本 限 数 的 
功能 类 似 于 MATLAB 的 QR 函数 。 
4. MATLAB 程序 


function [Q,R]=QRDecomhouse (A) 
[n,nl]= size (A); 
E= eye (n); 
X= Zeros (n, 1); 
R= zeros (n); 
Pl=E; 
for k=1:n—1 
s=— sign(A(k,k)) 关 norm(A(k:n,k)); 
R(k,k)=— s; 
if k==1 
w= [A(l1,1)+s,A(2:n,k)"']'; 
else 
w= [zeros (1,k—1),A(k,k)+s,A(k+t+ 1l:n,k)]'; 
R(1:k—1,k)=A(l:k-1,k); 
end 
IE norm(w)~=0 
W=W/norm (w); 
end 
P=E—- 2 WW"'; 
A=PxA; 
Pl=Px Pl; 
R(l1:n,n)=A(l:n,n); 


end 
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QO=Pl1'; 
1 2 
_ 2 一 3 1 0 
例 7.2 求 和 矩阵 4; 三 的 QR 分 解 。 
2 1 3 0 
] ] 1 0 


解 在 MATLAB 命令 窗口 输入 4 ,调用 程序 QRDecomhouse, 即 得 如 下 结果 。 


1 
>> [Q, RI1= QRDecomhouse (A1) 
Q=0.3162 -0.5440 0.0635 0.7746 
0.6325 0.7254 -0.0846 0 .2582 
0:6325 =0.3109 0.4865 -0.5164 
O1062 =0.2050 =0.8613 =0sz0z 


R=3.1623 -0.3162 3.4785 0 
0 -3.8601 一 1.5803 0 
0 0 0.6346 0 
0 0 0 0 
1 3 4 
例 7.3 求 和 矩阵 As, 二 |3 1 2 | 的 QR 分 解 。 
4 2 1 


解 在 MATLAB 命令 窗口 输入 A,, 调 用 程序 QRDecomhouse, 即 得 如 下 结果 。 


2= 1 3.4731,.2.4,2.1]s 
>> [Q2,R2]= QRDecomhouse (A2) 
Q2=0.1961 0.9684 0.1543 
0.5883 -0.2421 0.7715 
0.7845 -0.0605 -0.6172 
R2= 5.0990 2.7456 2.7456 
0 2.5420 3.3288 
0 0 1.5430 


7 乘 需 法 与 凤 寡 法 


7.21 了 乘 蝴 法 


设 实 和 矩阵 AE R”* 的 特征 值 为 X41 ,4s,…,4, ,相应 的 特征 癌 量 为 ww ,wz ,…,u,, 且 这 个 
特征 向 量 线性 无 关 。 若 有 | | 二 14, | 三 |4; | 三 … 三 |4,|, 则 称 久 为 主 特征 值 ( 即 按 模 最 大 的 
特征 值 ) ,显然 它 是 非 零 的 . 单 的 、 实 的 ,对 应 的 特征 问 量 ui 称 为 主 特征 向 量 。 

1. 功能 

用 乘客 法 求实 矩阵 的 主 特征 值 和 主 特征 癌 量 。 

2. 计算 方法 

对 任意 初始 向 量 x"ER” ,计算 7 一 YX /max(x® ) ,x «+ =Ay® ,k=0,1,*.…, 其 中 
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max(x“ ) 表 示 x“ 中 按 模 最 大 的 分 量 。 则 limmax(Cx ) 一 人 1 ,limCy ) 一 


分 大 , 且 x“*? 一 x 站 小 于 给 定 的 精度 时 ,结束 迭代 。 


常用 数值 算法 及 其 MATLAB 实 现 


3. 使 用 说 明 


[Lambada,Vj=Powereld (A, x0,ep,maxl) 


Ul 


max(ra ) 


当 & 充 


第 一 个 参数 A 为 方 阵 , 第 二 个 参数 x ”是 初始 癌 量 , 第 三 个 参数 ep 指定 的 精度 要 求 ,第 
返回 


4. MATLAB 程序 


function [lambda,V]=powereig (A,x0,ep,maxl) 
s 注 : 初始 值 对 迭代 次 数 和 特征 值 有 很 大 影响 . 
count= 0; 
err=1; 
lambda= 0; 
if nargin== 
maxl= 10000; 
end 
while ((count<=maxl)& (err>= ep)) 
[Im jl]=max (abs (x0) ); 
y= (1/x0(j)) * x0; $s 标准 化 x0; 
xl=Axy 
err=norm(xl— x0);} 
x0= x1]1; 
count= count+ 1; 
end 
[m j]=max (abs (x0) ) ; 
lambda= x0 (Jj); 
V=y; 


ls 


本 |-1 8 2 0 
例 7.4 加 ， ) 
一 ] 


| 
0 | 8 


四 个 参数 maxl 是 指定 的 最 大 迭代 次 数 , 如 果 不 输 入 maxl ,默认 maxl 王 100。 执 行 后 
主 特 征 值 lambda 和 主 特征 回 量 V 。 


解 ” 取 初始 向 量 x” =[1,0,1,1.0], 取 不 同 的 ep 和 迭代 次 数 , 计 算 结 果 如 下 ,其 中 


lam 是 主 特征 值 ,Y 是 主 特征 向 量 。 


>>x0= [1,0,1,1.0]7; 

>>B= [8 一 1 一 3 一 1 一 1 8,27v0: 一 3 278,12 一 1 0,1, 8] > 

>> [lam,V]=powereig (A,x0,0.000001, 30) 

lam= 12.46958411176703 

V= [- 0.91275602527780,0.65168086627298, 1.00000000000000,0.42795430338766] 
>> [laml,V1]=powereig (A,x0,0.0000000001,200) 

lam= 12.46958218544097 
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V1= [- 0.91275496644551,0.65168394842155,1.00000000000000, 0.42794938926133] 


用 MATLAB 的 图 数 eig 计算 , 则 有 下 面 的 结果 ,可 见 乘 笑 法 计算 的 结果 是 比较 准 
确 的 。 


>> eig (A) 
ans= [4.79187113229335,6.68549266744549, 8.05305401482610, 12.46958218543506]’ 


7.22 反 夫 法 


1. 功能 

用 反 适 法 求实 矩阵 的 按 模 最 小 的 特征 值 和 特征 向 量 。 

2. 计算 方法 

设 可 道 和 矩阵 AE R”" 的 特征 值 为 A ,Xs,…,4, ,相应 的 特征 癌 量 为 ww,ws,…,u,,， 且 这 
7 个 特征 回 量 线性 无 关 。 奉 有 | | 三 | 三 … 伍 |) 二 | , 则 称 4-: 的 特征 值 满足 
1 全 | 三 … 人 |。 为 4 一 的 主 特征 值 , 将 乘 寡 法 用 于 4 就 是 反 窜 法 。 将 乘 
寡 法 中 的 x+ 一 4A-1y , 改 为 Ax*1? 一 yy ,然后 求解 方程 组 得 到 x%+25 。 

3. 使 用 说 明 


[lambda,V|= fanpower (A, x0,ep,maxl) 


第 一 个 参数 A 为 方 阵 ,第 二 个 参数 x'"” 是 初始 回 量 , 第 三 个 参数 ep 指定 的 精度 要 求 ,第 
四 个 参数 maxl 是 指定 的 最 大 迭 代 次 数 , 如 果 不 输入 maxl, 默 认 maxl 王 100。 执 行 后 返回 
按 模 的 最 小 特征 值 和 特征 辐 量 。 

4. MATLAB 程序 


function [Lambda,V]= fanpower (A,x0,ep,maxl]l) 
count= 0; 
err=1; 
if nargin== 
maxl= 100; 
end 
while ((count<=max])& (err> ep)) 
[Im j]=max (abs (x0) ) ; 
y= (1/x0 (j)) * x0; 标准 化 
xl=gauss2 (A,yr0.000000001) ; 
err=norm(xl— x0);} 
xXx0= xl1; 
count= Count+ 1;» 
end 
[m Jj ]=max (abs (x0) ); 
lambda= 1/x0 (j); 
V=y; 
qisp(" 按 模 最 小 的 特征 值 的 近似 值 为 Lambda') 
disp(' 相 应 的 特征 向 量 为 Z") 
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常用 数值 算法 及 其 MATLAB 实 现 


例 7.5 求 例 7.4 中 和 矩阵 的 按 模 最 小 的 特征 值 和 特征 问 量 。 
解 ” 取 初始 向 量 x 二 [1,0,1,1.0j] , 取 不 同 的 ep 二 0. 000001 和 迭代 次 数 60, 计 算 结 
果 如 下 。 


>> [Lambda,V]= fanpower (A, x0, 0.000001, 60) 
按 模 最 小 的 特征 值 的 近似 值 为 Lambda= 4.79186783524492, 相 应 的 特征 癌 量 为 
V= [0.79889048348171,- 0.37438971245431,1.00000000000000,--0 .06268259324233]’ 


7.23 移 位 反 窜 法 
对 非 零 数 a, 称 A 一 al 为 A 的 原点 移 位 ,a 称 为 位 移 。 夺 ,WV 是 矩阵 4 的 特征 对 ,天 、， 
则 二 二 一 是 (4 一 of) 下 的 特征 对 。 


1. 功能 

用 移 位 反 和 窜 法 求实 和 矩阵 的 特征 值 和 特征 向 量 。 

2. 计算 方法 

设 和 矩阵 AER”* 的 nn 个 特征 值 满 足 X1 二 Xs 二 … 一 4, ,a 是 一 个 实数 ,满足 |4; 一 a| 二 |4; 一 


a | ;st 二 1] ,2,.…,n, 且 zi 天 71。 即 1 一 如 一 为 (4 一 od)! 的 主 特征 值 ,将 反 和 军法 用 于 A 


of 求 得 六 ,从 而 一 < 十 二 。 这 种 方法 需要 特征 值 的 较 好 的 近似 值 ,然后 用 迭代 可 得 比较 精 


确 的 解 , 移 位 反 符 法 是 求 单个 特征 值 和 特征 向 量 的 有 效 方法 。 对 于 复 特 征 值 .重复 特征 值 、 
存在 绝对 值 相 等 或 近似 相等 的 特征 值 的 情况 ,可 能 导致 计算 困难 。 
3. 使 用 说 明 


[Lambada,Vj= invshift (A,x0,alph,ep,maxl) 


第 一 个 参数 A 为 方 阵 , 第 二 个 参数 x"” 是 初始 向 量 , 第 三 个 参数 alph 是 位 移 , 第 四 个 参 
数 ep 指定 精度 要 求 ,第 五 个 参数 maxl 是 指定 的 最 大 迭代 次 数 , 如 果 不 输入 maxl, 默 认 
maxl 二 100。 执 行 后 返回 特征 值 4; 及 其 特征 向 量 。 

4. MATLAB 程序 


function [lambda,V]=invshift (A,x0,alpha,ep,maxl]l) 
$ 移 位 反 竹 法 求 方 阵 A 的 主 特征 值 ; 和 特征 向 量 页。 设 n 个 特征 值 满足 
当 入 1<A 和 2<…<A 人 nyralpha 是 实数 , 且 |Xj- alphal< |Ai-alpha| (ii 天 ])。 
sx0 初 始 列 向 量 ,ep 是 指定 的 精度 ,maxl 最 大 迭代 次 数 ,默认 maxl1= 100 
s 输 出 - lambda- 主 特征 值 ,v- 主 特征 值 和 特征 向 量 。 
[n,n]s= size (A); 
A=A- alpha * eye (n); 
if nargin== 
maxl= 10000; 
end 
count= 0; 
err= 1]; 
while ((count<=max]l)& (err> ep)) 
[lm j]=max (abs (x0)); 


第 7 章 矩阵 特征 值 与 特征 向 量 的 计算 。 497 


y= (1/x0(j)) * x0; 标准 化 
xl= gauss2 (A,y, 0.000000001)，; 
err=norm(xl1— x0);} 
x0= xl1; 
count= count+1; 
end 
[lm j]=max (abs (x0) ) ; 
lambda=alphat 1/x0 (j); 
V=y; 
disp(' 主 特征 值 的 近似 值 为 Lambda') 
disp(' 相 应 的 特征 向 量 为 V') 


6 “7 | 2 
例 7.6 利用 移 位 反 才 法 求 矩阵 Ai 二 ， 1 和 的 特征 对 。 已 知 和 矩阵 


4 1 5 一 3 
Ai 的 特征 值 为 A 二 9.45888450412139,4, 二 2.95015754647767 ,3 一 一 0. 32333284089797， 
4 二 一 10.08570920970111, 对 ,As 的 情况 分 别 选取 适当 的 a 和 初始 向 量 进行 计算 。 
解 在 MATLAB 命令 窗口 输入 4; , 先 用 eig 求 得 4; 的 特征 值 。 
>>Al= [6,5,—1,2;-5,—7,4,— 6;1,6,6,7;4,1,5,— 3] 
>> Te=eig (Al) 
Te= [9.45888450412139,2.95015754647767,— 0.32333284089797,- 10.08570920970111]’。 


对 41 二 9.45888450412139 的 情况 , 取 a=7.5,zx”=[1,0,1,1|]'。 


>> Te 7.5¥% [1 1 11I]- 
ans= [ 1.95888450412139, — 4.54984245352233,— 7.82333284089797,- 17.58570920970111]  。 


可 见 ,一 7.5 是 Ai 一 7. 5 的 按 模 最 小 的 特征 值 。 代 入 移 位 反 知 程 序 计 算得 
>> [lambdal,Vl|]=invshift (Al,x0,7.5,0.000001,30) 


主 特征 值 为 Lambdal 王 9. 45888445002333, 相 应 的 特征 向 量 为 Vi 二 [| 0. 05838103616981， 
0.07011131279117,1.00000000000000,0. 42569081669151 17。 
对 4s 二 2.95015754647767 的 情况 , 取 a=1.8,x'”=[1,1,0,11]'。 


>>Te-1.8x [1,1,1,1]’ 
ans= [7.65888450412139,1.15015754647767,— 2.12333284089797,- 11.8857092097011117 。 


A2 一 1.8 是 Al 一 1. 8I 的 按 模 最 小 的 特征 值 , 代 入 移 位 反 才 程序 计算 得 如 下 结果 。 
>> [Lambda2,V2]= invshift (Al,x0,1.8,0.00000001,100) 


主 特征 值 的 近似 值 为 Lambda2 = 2. 95015754414112, 相 应 的 特征 向 量 为 V, = 
[1. 00000000000000 ,一 0. 82675587264071 ,0. 02545954940906 ,0. 55469823170192]7。 
可 见 , 当 已 知 特征 值 的 近似 值 时 , 移 位 反 索 法 能 很 快 收敛 到 精确 解 。 
全 一 9 一 了 7 2 
. 1 0 0 0 _ 
例 7.7 | ee | 的 特征 值 为 1 二 一 2,X4, 一 一 1( 三 重 
0 0 1 0 


198 常用 数值 算法 及 其 MATLAB 实 现 


根 ) ,利用 移 位 反 寡 法 求 A, 的 特征 对 。 
解 在 MATLAB 命令 窗口 输入 A,。 


>>A2= [- 5,- 9,-—7,—2;1,0,0,0;0,1,0,0;0,0,1,0] 
对 Al 一 一 2 的 情况 , 取 w 一 一 3，X(0 一 |1,1,1,1 1, 代入 程序 invshift ,执行 后 得 
>> [Lambda,V|= invshift (A2,x0,— 3,0.0000000000000001, 60) 


主 特征 值 为 Lambda= 一 2. 00000000000000, 相 应 的 特征 向 量 为 
VY 王 [1. 00000000000000 ,一 0. 50000000000000 ,0. 25000000000000 ,一 0. 12500000000000]7。 
易 验 证 特征 值 Lambda 和 相应 的 特征 向 量 Y 均 为 精确 解 。 
对 As 二 一 1 的 情况 , 取 wx 一 一 0.5 和 一 0.8,x” 一 [1,1,1,1】, 分 别 迭 代 60 次 、1000 次 ， 
得 到 如 下 结果 。 


>> [Lambdal,V1i]=invshift (A2,x0,— 0.5,0.0000000000000001, 60) 


主 特征 值 的 近似 值 为 Lambdal 二 0. 98380809595312 ,相应 的 特征 向 量 为 
V, 一 [一 0.95103811590014，0. 96722101711462 ,一 0. 98354164514791 ,1. 00000000000000]T。 


[Dambaa2,V2]= invshift (A2, x0,— 0.8,0.0000000000000001,1000) 


主 特征 值 的 近似 值 为 Lambda2 王 一 0.99960075796549 ,相应 的 特征 向 量 为 
V, 一 [ 一 0. 99880131706406 ,0. 99920079810588 ,一 0. 99960035908453 ,1. 00000000000000 ]T 。 
通过 上 述 计 算 可 知 , 对 重 根 的 情况 ,迭代 收敛 的 速度 很 慢 。 
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1. 功能 
求实 对 称 和 矩阵 的 全 部 特征 值 和 特征 向 量 。 
2. 计算 方法 
| | 
cOSO sing 
设 和 矩阵 G。 (0) 一 二 ,其 中 G, (0) 的 所 有 非 对 角 元 素 


一 SInO COSO 
| | 


为 零 或 士 sin9, 对 角 线 上 的 元 素 为 1 或 cos0。 称 Gp (0) 为 Givens 算 阵 (变换 )。 通 过 对 4 作 
一 系列 相似 Givens 变换 G; ,使 之 近似 化 为 对 角 和 矩阵 , 即 
A; = GG GAGI Gi …G ~ D., 
令 Ri 一 GiGi-1…G1; 则 AR 一 RiD ,Ri 的 列 回 量 就 是 相应 的 特征 癌 量 。G ,Ai ,Ri 的 具体 计 
算 公 式 如 下 : 
设 4 一 (cy ),R 一 (Cr D ) ,其 中 ,4 一 4,R 王 工 单 位 和 矩阵) 。 
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(1) 选 定 A 二 (a » ) 中 的 元 素 a%- 70) 满足， 
(2) 如 果 a%%- LA 1) , 取 0 一 区/4， 否 则 | ， 取 


(Rk—1) (1 
Li 一 tan0 一 sign(Cr) 。( 一 | rz | 十 V1 十 己 )， 


a 
= — “tp 9 
人 加 


cos0 = 1/vV1+tan0 = 1/vV1l+it, sin = icos0， 
取 (1)、(2) 中 确定 的 p,qg 和 0 作为 Givens 变换 G 的 参数 。 
(3) Ai 二 Gh-_1GT ,其 元 素 的 计算 公式 为 


la 和 | 二 max lay |。 
三 in,1 夺 j 夺 i 一 


~ 一 人》 ~ ~ 


[ao 一 QU "cos 0 十 2aw cosbOsin0 十 ag sin20， 
ao 一 Cao sin0— 2aw vcosbsin0 十 ae cos 0， C7 1) 
aw 一 本 0 cos20, 
aw 一 Qi 一 Qi cos0 十 ao sin (i pb,9), 
人 一 a 一 一 ai "Sin0 十 av "cos0 (天 力 ,q)。 人 
ay =ay (i,j p,q)。 (7.3) 
(4) R， 的 元 素 计算 公式 为 
rit” = ri vcos0+re vsinn (i= 1,2,.…,n), 
ri 一 一 ro sin0 十 ri cosO (i= 1,2,.…,n), (7.4) 
Pe se Mn hs 


3. 使 用 说 明 
[D,V]= Jacobieig (A, ep) 


第 一 个 参数 A 为 实 对 称 和 矩阵 ,第 二 参数 ep 指定 精度 要 求 , 当 非 对 角 线 的 元 素 绝 对 值 都 
小 于 ep 时 退出 ,默认 ep 二 10 司 ,执行 后 返回 全 部 特征 值 和 特征 问 量 。 
4. MATLAB 程序 


function [D,V]= Jacobieig (aep) 
s 输 出 对 角 和 矩阵 D, 其 元 素 为 近似 特征 值 。 输 出 矩阵 V 的 列 向 量 为 相应 特征 值 的 特征 向 量 
if a~=a' 
disp(' 输 入 错误 ,应 输入 对 称 矩 阵 ') 
end 
n= size (a); 
if nargin== 
ep= 1.0e— 6; 
end 
V=eye (n); 
[ml pl]=max (abs (a- diag (diag (a)))); 
[m2 ql]=max (ml); 
p=p(q; 
k= 0; 
while (m2?2>= ep) 
if a(p,p)==a(q,q) s 取 角度 theta=r/4 
c= sqrt (2) /2; 
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Ss=C; 

elseif a(p,gq)~=0 
tao= (a(q,q)-a(p,p))/(2* al(p,q)); 
t= sign (tao)/ (abs (tao)+ sgqrt (1+tao^2) ) ， 
c=1/sqrt (1+ 七 ^2) ; 
3= 直 Cs 

elseif a(p,qgq)== 
c=1; 
s= 0; 

end 

R= [c s;-—3s cl]; 

al(l[lp ql,:)=R'*al([p ql,:); 

a(:, [p ql])=al(:, [p q])*R; 

V(:, [p ql)=V(:, [p q])*R; 

[ml pl=max (abs (a- diag (diag (a)))); 

[m2 q]=max (ml); 


P=P(9) :; 
k=k+1; 
end 
D= diag (diag (a)); 
10 8 12 一 9 7 
8 —7 0 1 5 
例 7.8 求 矩 阵 4=| 12 0 一 6 9 ”12 | 的 全 部 特征 值 和 特征 向 量 。 
—9 11 9 一 3 5 
Dr 


解 在 MATLAB 命令 窗口 输入 4, 执行 程序 Jacobieig 后 ,和 矩阵 D 的 对 角 线 上 的 元 素 
为 A 的 特征 值 ,矩阵 V 的 列 向 量 就 是 相应 的 特征 向 量 。 


>>A= [10,8,12,-— 9,7; 8,—7,0,11,5; 12,0,- 6,9,12;—9,11,9,- 3,5; 7,95,12,5,—9] 
>> [D,V]= Jacobieig (A) 


D= 23.7229 0 0 0 0 
和 wo 0 0 0 
0 0 一 217.1214 0 0 
0 0 0 11.0372 0 
0 0 0 9 =Li089 
V=0.7174 QJZ =03103 =0.4900 =0.2341 
0.2917 0.7459 0.4861 0.3021 0.1762 
0.4828 -0.5524 0.5547 Uaz0ls -0.3361 
0.1145 0.0736 -0.5224 U0.7596: =03621 
e326 =0 2293. =02143 0.2124 0.8179。 


= 一 


运行 


[R, DD]= eig (A) 


MATLAB 的 eig 程序 得 如 下 结果 。 
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R=— 0.3703 0.2347 0.2172 -0.4960 -0.7174 
0.4861 -0.1762 0.7459 Dade = 2911 
0.5547 0.3367 0:5524 0.2015 -0.4828 

一 0.5224 0.3627 0.0736 .15960 =0.1145 
DZ SL 029 0.2124 -0.3926 


DD=— 27.1214 0 0 0 0 
0 EG 0 0 0 
0 0 -5.5496 0 0 
0 0 Vy .02 0 
0 0 0 0 ph 


可 见 所 求 特征 值 相同 ,只 是 顺序 不 同 , 特 征 向 量 相 同 或 只 差 一 个 符号 。 


74 对 称 QR 万 法 


1. 功能 

求实 对 称 和 矩阵 的 全 部 特征 值 。 

2. 计算 方法 

用 nn 一 2 次 Householder 变换 将 n 阶 实 方 阵 A 正 交 相似 约 化 为 三 对 角 和 矩阵 T, 对 三 对 角 
矩阵 下 进行 带 原 点 移 位 的 QR 和 迭代 , 即 T; 一 jsI 二 QR;(T = 人 D),Tin= 二 RO; 十 jl ,i 二 1,2,*…,k。 


al bi 
bi Uo bp, | p 
其 中 T 是 对 称 三 对 角 和 矩阵 工 一 -3 到 二 阶 息 阵 | | 的 特 
n—1 Un 


Be Mi ei 
| DO-1 Qn | 
征 值 中 最 接近 a 的 作为 移 位 y; ,这 样 重复 执行 带 移 位 的 QR 迭代 ,直到 6b,_1 守 0( 即 5- 一 
ep) , 即 可 得 到 第 一 个 特征 值 入 二 jw 十 pz 十 十 jw。 对 T; 的 nn 一 1 阶 主子 矩阵 重复 上 述 
过 程 。 
3. 使 用 说 明 


symqr (A, ep) 


第 一 个 参数 A 为 实 对 称 和 矩阵 ,第 二 个 参数 ep 指定 精度 要 求 , 当 元 素 6b,_1 的 绝对 值 小 于 
ep 时 , 求 得 一 个 特征 值 ,默认 ep 一 10 ,执行 后 返回 全 部 特征 值 。 
4. MATLAB 程序 


function D= symqr (A, ep) 

s 求 对 称 和 矩阵 特 征 值 的 oR 方法 , 先 用 n- 2 次 Householder 变换 将 对 称 和 矩阵 A 变 为 三 对 角 和 矩阵 

s 然 后 用 移 位 法 进行 @R 分解, 可 求 得 矩阵 R 的 近似 特征 值 。ep 为 控制 精度 , 即 次 对 角 线 元 素 的 绝对 
值 小 于 sp。 输 出 D 为 A 的 近似 特征 值 

[n,n]= size (A); 

[H, Pl]= hessen (A); 


JI 一 也 7 
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D= zeros (n, 1); 

B= H; 

if nargin==1 

ep=10^(- 15); 

end 

count= 0; 

while (m> 1) 

while (abs(B(m,m- 1))>=ep)& (count< 5000) 

T=eig(B(m- 1:m,m- 1:m)); s 求 二 阶 和 矩阵 的 特征 值 
[,Kk]j=min([abs (B(mm) 关 [1L1I] 一 了 T)]); 
[Q,R]= qr (B- T (k) * eye (m) ) 7 
B=Rx* Qt+T(k) * eye (m) ; 


count= count+1; 


end 

H(l:m,1:m)=B; s 将 第 m 个 特征 值 放 在 H(m,m) 

IT 一 mm 一 工 

B=H(l:m,1:m):; s 对 所 的 m-1 阶 主子 矩阵 重复 上 述 过 程 
end 
H 
D= diag (H); 


function [H,Pl]= hessen (A) 
名 用 n- 2 次 Householder 变换 将 和 矩阵 A 变 为 上 Hessenberg 和 矩阵 , 当 A 为 对 称 和 矩阵 时 变 为 三 对 角 和 矩阵 
s 输 出 H 是 上 Hessenberg 矩阵 
6 输出 P 是 Householder 变换 的 乘积 - 正 交 和 矩阵 , 即 有 H= PAP ' 。 
[n,n]= size (A); 
E= eye (n); 
Pl=E; 
for k=1:n—2 

s=norm(A(kt+ 1:n,k)); 

if (A(k+1,k)<0) 

Ss=— 5; 

end 

r=sqrt (2 关 sx* (A(k+1,k)+s)); 

W(l1:k)= zeros (1,k); 

W(k+1)= (A(k+1,k)+s)/r; 

W(k+ 2:n)=A(k+2:n,Kk)'/r; 

P=E- 2x* W"' *W; 


A=Px*xA*xP; 
Pl=Px Pl; 
end 
-A: 
P= Pl1; 


( 5 一 3 0 0 J 
—3 8.5 0.5 0 0 
例 7.9 求 和 矩阵 4A=| 0 ”0.5 1 一 0.3 0 | 的 全 部 特征 值 。 
0 一 0.3 3 5 
0 0 5 6 
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解 ”建立 矩阵 4, 代 入 程序 symqr 计算 ,有 如 下 结果 。 


OO 了 OO 0 =0.3000=0 UN 

>> D= symqr (A) 

D= [3.30360428750278,0.98296482338153,— 0.75386729784520,10.24361497712806, 
9.72368320983283]’。 


75 QR 方法 


7.51 上 Hessenbers 的 QR 方法 


1. 功能 

求实 矩阵 的 全 部 特征 值 。 

2. 计算 方法 

用 n 一 2 次 Householder 变换 将 n 阶 实 方 阵 A 正 交 相似 约 化 为 上 Hessenberg 和 矩阵 五 ， 
对 和 矩阵 H 进行 QR 迭代 , 即 H; 二 Qj;R;(Hi 二 H) ,Ty 二 RQ;,i 一 1 ,2,…。 

3. 使 用 说 明 


hessenqgr (A, ep,maxl) 


第 一 个 参数 A 为 实 和 矩阵 ,第 二 个 参数 ep 指定 精度 要 求 ,第 三 个 参数 maxl 是 最 大 迭代 
次 数 , 默 认 maxl 二 1000。 当 对 角 线 以 下 的 元 素 的 绝对 值 最 大 者 小 于 ep, 且 和 迭代 次 数 小 于 
maxl 时 退出 ,执行 后 返回 准 上 三 角 和 矩阵 ,对 角 线 上 的 一 阶 或 二 阶 子 矩阵 块 的 特征 值 就 是 所 
求 矩 阵 的 特征 值 。 

4. MATLAB 程序 


function H= hessengr (A,ep,maxl) 
[H, P]= hessen (A); 调用 hessen 图 数 ( 见 7.4 节 ) 
Count=0; 

ml=max (abs (tril (H,— 1))); 

dod= max (ml ); 

if nargin== 

maxl= 1000; 

end 

while (dd> ep)& (count< maxl) 
[Q,R]= qr (H); 

H=RX* 只; 

count= count+ 1; 

ml=max (abs (tril (H,— 1))); 

dod= max (ml ); 


end 
1 3 8 


例 7.10 求 矩 阵 4=|3 一 1 0 | 的 全 部 特征 值 。 
7 1 9 
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解 在 MATLAB 名 窗口 输入 4 ,调用 程序 hessenqr, 得 到 如 下 结果 。 


>>B= [1,3,8;3,— 1,0;7,1,9] 
>> hessengr (A,10^ (- 15), 38) 
ans=13.74784370558362 一 1.245146838147]12 0.12819908066170 
0.00000000000000 ”一 4.89639915898505 一 0.65815981886599 
-0.00000000000000 一 0.00000000000000 0.14855545340143。 


可 见 , 和 矩阵 A 的 特征 值 为 13. 74784370558362 ,一 4. 89639915898505 ,0. 14855545340143。 
10 30 12 一 9 7 
8 一 7 0 11 5 
例 7.11 求 和 矩阵 4; 王 | 12 0 一 6 9 ”12 | 的 全 部 特征 值 。 
| 11 3 17 5 | 
" 5 12 5 一 9 
解 在 MATLAB 名 窗口 输入 Ai ,调用 程序 hessenqr, 有 如 下 结果 。 
>>Al= [10, 30,12,— 9,7;8,— 7,0,11,5;12,0,— 6,9,12;— 9,11,3,17,95;7,5,12,5,— 9] 
>> hessenqgr (Al, 10^ (- 15) ,650) 
ans=— 26.2360 一 10.0263 4.4094 0:95714 12.3211 
一 0.0000 24.1037 一 6.5111 一 3.0346 一 8.9039 
一 0.0000 1.2709 26.9147 4.3926 SS F971 


-0.0000 0.0000 0.0000 -16.7528 -6.7346 
0 0 0 0 =3:02931, 


可 见 , 和 矩阵 4 的 特征 值 为 一 3. 0297, 一 16. 7528, 一 26. 2360, 及 二 阶 对 角 块 
24.1037 一 6.51111， 

| 2 0147 | 的 特征 值 妈 25. 5092 士 2. 50991。 对 于 有 复 根 的 情况 ,QR 方法 收 伍 

较 慢 ,经 过 多 次 试验 ,迭代 次 数 至 少 620 次 以 上 , 才 收 敛 到 对 角 线 子 块 是 一 阶 或 二 阶 子 和 矩阵 
的 块 三 角 和 矩阵 。 用 MATLAB 的 eig 程序 验证 ,可 见 , 所 求 结 果 相 同 。 


>> eig (Al) 
ans= [25.5092+2.50991,25.5092-2.50991 ,一 26.2360,-3.0297,-- 16.75281T。 


7.52 原点 移 位 的 QR 方法 


1. 功能 
求实 和 矩阵 的 全 部 特征 值 。 
2. 计算 方法 
用 nn 一 2 次 Householder 变换 将 n 阶 实 方 阵 A 正 交 相似 约 化 为 上 Hessenberg 和 矩 阵 互 ,对 算 
阵 互 进行 QR 分 解 , 即 Hi 一 Q;R; (Hi 一 H), 对 Hessenberg 和 矩阵 HH 进行 市 原点 移 位 的 QR 分 解 ， 
即 H;—I=QR;(H=H),H;:=RO;+Tpwl,i 二 1,2,…,k, 其 中 H; 是 上 Hessenberg 和 矩阵， 
hi hi J hi hi, 
hs  h» h23 h,, 


h,_1n_2 hi1n_1 hi1» 
hi1 ha 
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和 i 

当 二 阶 短 阵 [ 的 特征 值 是 实数 时 ,选取 最 接近 hh 的 特征 值 作为 移 位 yj;， 
当 它 有 复 根 时 , 取 ,, 作 为 移 位 jy; ,这 样 重复 执行 带 移 位 的 QR 分 解 , 直 到 hh,,_1 守 0 ( 即 hh,,_i 
二 ep) ,可 得 到 第 一 个 特征 值 .二 ja 十 pz 十 十 pu, 然后 对 H; 的 nn 一 1 阶 主子 矩阵 重复 上 述 
过 程 。 如 果 重 复 执 行 带 移 位 的 QR 分 解 后 , 仍 有 几 , -1 三 ep, 但 是 六 -过 ep, 这 说 明 互 有 


EE 
复 根 , 取 二 阶 算 阵 | 的 特征 全 作为 的 特征 值 4,-_1 ,4, ,然后 对 H; 的 nn 一 2 阶 


主子 矩阵 重复 上 述 过 程 。 
3. 使 用 说 明 
shiftqr (A,ep) 


第 一 个 参数 A 为 实 和 矩阵 ,第 二 个 参数 ep 指定 精度 要 求 , 当 元 素 hm-i 的 绝对 值 小 于 
ep 时 , 求 得 一 个 特征 值 ,默认 ep 王 10-5 ,执行 后 返回 全 部 特征 值 。 

注 : 在 程序 内 部 ,我 们 设置 了 原点 移 位 的 QR 分 解 次 数 (count) 不 超过 1000 次 ,对 一 般 
情况 ,已 足够 了 。 实 际 应 用 时 ,可 查看 MATLAB 程序 中 百 的 返回 值 , 如 果 百 是 对 角 线 子 块 
是 一 阶 或 二 阶 子 短 阵 的 块 三 角 答 阵 , 说 明和 迭代 已 经 收敛 到 满足 精度 要 求 的 解 ,否则 ,可 增加 
分 解 次 数 。 

4. MATLAB 程序 


function D= shiftqr (A,ep) 
[n,n]= size (A); [H, Pl]= hessen (A); 
if nargin== 
ep= 10^ (15); 
end 
m= n; 
D= zeros (n, 1); 
B= H;count= 0; 
while (m> 1) 
while (abs(B(m,m- 1))>=ep)&(count< 1000) 
T=eig(B(m- 1:m,m- 1:m)); s 求 二 阶 和 矩阵 的 特征 值 , 并 判断 是 否 为 实数 
if isreal (T) 
[j,kl=min([abs(B(m,m) * [1 1]"'- 7)]); 
[IQ,R]= qr (B- T(k) * eye (m) ) ; 
s 取 最 接近 B(m,m) 的 特征 值 作为 移 位 ,对 B 移 位 后 进行 gR 分 解 
B=Rx QtT(k) * eye (m) ;$ 计 算 下 一 个 B 
else 
[Q,R]= qr (B- B (m,m) * eye (m) ); 
s 取 B(m,m) 作 为 移 位 ,对 B 移 位 后 进行 QR 分 解 
B=Rx Q+B(m,m) * eye (m); 计算 下 一 个 B 
end 
count= count+ 1; 
end 


If (abs (B (m,m- 1))< ep) 
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H(l:m,1:m)=B; s 将 第 m 个 特征 值 放 在 H(m,m) 
m=m- 1; 
B=H(l:m,1:m):; 对 fH 的 m-1 阶 子 和 矩阵 重复 上 述 过 程 


end 


If (m> 2)&(abs(B(m,m- 1))>=ep)& (abs (B(m- 1,m- 2))< ep) 


T=eig(B (m- 1:m,m- 1:m)); s 此 二 阶 块 有 复 根 
H(l:m,1:m)=B(l:m,1:m); 
H(m- 1,m-1)=T(1); s 将 第 m- 1,m 个 特征 值 放 在 H(m- 1,m- 1),H(m,m) 
H(m,m)=T(2); 
m=m- 2; 
B=H(l:m,1:m); 名 对 fH 的 m-2 阶 主子 矩阵 重复 上 述 过 程 
end 


if (m==2)&(abs (B(m,m- 1))>=ep) 
T=eig(B(m- 1:m,m- 1:m)); 
H(l:m,1:m)=B(l:m,1:m); 
H(m- 1,m-1)=T(1); s 将 第 m- 1,m 个 特征 值 放 在 H(m- 1,m-1),H(m,m) 
H(m,m)=T(2); 
If isreal (T(1)) 


H(m,m- 1)= 0; 
end 
mm- 2; 
end 
end 
H; 
D= diag (H); 


9 一 2 —7 4 6 
6 —9 2 —1 一 ! 
例 7.12 用 原点 移 位 的 QR 方法, 求 矩 阵 A, 二 1 一 4 8 一 8 9 31! 的 全 部 特 
3 4 8 4 7 
8 —8 0 7 4 
征 值 。 
解 ”建立 矩阵 A, ,代入 程序 shiftqr 计算 ,用 MATLAB 的 eig 程序 验证 ,有 如 下 结果 。 


>>A2= [9,—2,—7,4,6;6,— 9,2,-1,-1;— 4,8,—8,9,3;3,4,8,4,7:8,— 8,0,7,4] 

>> shiftqr (A2) 

ans= [17.01106480767610,- 16.77225262178964, 7.39716644137693, - 8.14482764782386， 
0.50884902056048]T 。 


即 所 求 特征 值 为 17. 01106480767610 ,一 16.77225262178964,7. 39716644137693 ， 
—8.14482764782386,0. 50884902056048。 


>> eig (A2) 
ans= [17.01106480767608,— 16.77225262178965,7.39716644137693, 一 8.14482764782386, 
0.50884902056048]:。 
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可 见 ,所 求 结果 几乎 完全 相同 。 
例 7.13 用 原点 移 位 的 QR 方法 , 求 矩 阵 


3 2 3 并 9 6 7 

11 ] 2 3 4 9 6 

2 8 9 l 2 3 1 

A; 一 | 一 4 2 9 1 13 1» 8 
nt Wt et Mt 

3 2 3 4 13 15 8 
二 


的 特征 值 。 
解 ” 建立 和 矩阵 A; ,代入 程序 shiftqr 计算 ,用 MATLAB 的 eig 程序 验证 ,有 如 下 结果 。 


2 有 [3 23 7 L233 02891 2 4= A 29.11 13,.15.83—1.=20=3— l=1 =1=1s 
3,2:3,4,13,15,87—2,—2,—3,—4,— 3,—3,— 3]; 

>> shiftqr (A3) 

ans= [ 18.41231853906610,11.180519655549]17,1.70992818926670+ 4.25219686219269i,， 

1] .70992818926670- 4.252196862192691,4.49831918927813,-2.23266683394613， 

-0.27834692848069]’。 

>> eig (A3) 

ans= [18.41231853906615,11.18051965554918,4.49831918927814,1.70992818926671 
+4.25219686219268i,1.70992818926671- 4.25219686219268i, 一 2.23266683394614，, 
—0.27834692848069]’。 


7.53 双重 步 QR 方法 


1. 功能 
求实 矩阵 的 全 部 特征 值 。 
2. 计算 方法 
用 nn 一 2 次 Householder 变换 将 n 阶 实 方 阵 4 正 交 相似 约 化 为 上 Hessenberg 矩阵 H， 
对 和 矩阵 HH 进行 双重 步 QR 分 解 。 记 三 尹 -1 十 几 ，。 一 Ai 十 jp st = hinihnn TF han-ihri1n = 
mm 。 取 Am 和 js 为 移 位 ,在 复数 域 上 连续 作 两 次 原点 移 位 QR 变换 : 
{IH 一 jl 二 QR!，( 复 QR 分解) 
B= RQ 二 pl, 


(7.5) 
Bo— 1 = OQ;,R,, ( 复 QR 分 解 ) 
C= R;,0, 十 pj2l。 
可 以 证 明 双 重 步 QR 变换 (7.5) 等 价 于 下 面 的 一 步 实 QR 变换 
M= Hi:—sH+i, 
M 一 QR，( 实 QR 分 解 ) (7.6) 


C= 0'HO. 
用 ”一 2 次 Householder 变换 将 C 正 交 相似 约 化 为 上 Hessenberg 矩阵 D, 设 
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du ds din di1n 
dz dd» dl2s d2, 
D = 。 . ， 
| Cr 0 Gals 
des-1 dnn 


,| » 


在 执行 过 程 中 同时 判断 收敛 性 。 当 一 阶 失 阵 3 


时 ,可 得 到 第 一 个 特征 值 2, 二 4,, ,然后 取 D 的 n 一 1 阶 主子 矩阵 作为 玉 , 重 复 上 述 过 程 。 如 
果 重 复 执行 后 , 仍 有 dw-1 宇 ep, 但 是 ,4d,-1,-; 二 ep, 这 说 明 H 有 复 特征 值 , 取 二 阶 和 矩阵 
es » 
| 和 ] 的 特征 全 作为 是 的 特征 值 4,_1 ,4, ,然后 取 DD 的 nn 一 2 阶 主子 矩阵 作为 H， 
重复 上 述 过 程 。 
3. 使 用 说 明 


| d, -10 ( 即 dg -< 天 ep) 


shift2gr (A,ep) 


第 一 个 参数 A 为 实 和 矩阵 ,第 二 个 参数 ep 指定 精度 要 求 , 当 元 素 di 的 绝对 值 小 于 ep 
时 , 求 得 一 个 特征 值 ,默认 ep 二 10- ,执行 后 返回 全 部 特征 值 。 

注 : 参见 shiftqr 的 使 用 说 明 ,来 复 特 征 值 时 此 法 收敛 速度 比 shiftqr 快 。 

4. MATLAB 程序 


function D= shift2gr (A,ep) 
[n,n]= size (A); 
if nargin==1 
ep= 10^ (- 15) ; 
end 
[H, Pl]= hessen (A); 
mn; 
D= zeros (n,1); 
B=H; 
count= 0; 
while (m>1)& (count< 1000) 
E= eye (m); 
s=B(m- 1,m- 1)+B (m,m); 
t=B(m-1,m-1)* B(m,m)+B(m,m-1)* B(m-1,m):; 
MBYB- -3* Bit* Es 
[Q,R]=houseqr (M) ; 


B=-Q *B*oO; 
If abs(B(m,m- 1))<ep 

H(l:m,1:m)=B; s 将 第 m 个 特征 值 放 在 H(m,m) 

mm- 1; 

B=H(l:m,1:m); s 对 H 的 m-1 阶 主子 矩阵 重复 上 述 过 程 
end 


if (m> 2)&(abs (Bl(m,m- 1))>=ep)&(abs (B(m- 1,m- 2))<ep) 
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T=eig(B (m- 1:m,m- 1:m)); 此 二 阶 块 有 复 根 

H(l:m,1:m)=B(l:m,1:m); 

H(m-1,m-1)=T(1); s 将 第 m- 1,m 个 特征 值 放 在 Hm- 1,m-1),H(m,m) 
H(m,m)=T(2); 

m=m- 2; 

B=H(l:m,1:m); 名 对 fH 的 m-2 阶 主子 矩阵 重复 上 述 过 程 


end 
if (m==2)&(abs(B(m,m- 1))>=ep) 
T=eig(B (m- 1:m,m- 1:m)); ss 此 二 阶 块 有 复 根 
H(l:m,1:m)=B(l:m,1:m); 
H(m-1,m-1)=T(1); s 将 第 m- 1,m 个 特征 值 放 在 Hm- 1,m-1),H(m,m) 
H(m,m)=T (2); 
if isreal (T(1)) 


H(m,m-— 1)= 0; 
end 
m=m- 2; 
end 
B= hessen (B) : 


count= count+ 1; 
end 
H 
disp('A 的 特征 值 为 '); 


D= diag (H); 


例 7.14 分 别 用 原点 移 位 的 QR 方法 和 双重 步 移 位 QR 方法 , 求 矩 阵 
10 30 1 = 2 
2 17 59 3 “99 
A=! 15 0 一 16 19 12 
LL =» 1l8 5 
一 8 30 12 5 80 
的 全 部 特征 值 。 
解 ”建立 和 矩阵 A ,代入 程序 shiftqr,shift2qr 计算 ,并 用 MATLAB 的 eig 程序 验证 ,两 
种 方法 的 计算 结果 相同 。 


0 0 12 UL 
>> Shiftar (A4) 

ans=1.0et+ 002 * 

1 .33756571508372 

0.18134794708006+ 0.068417374665541 

0.18134794708006- 0.068417374665541 

—0.30513080462192+ 0.11917201755006i 

—0.30513080462192- 0.11917201755006i 

>> shift2qgr (A4) 

A4 的 特征 值 为 


ans=1.0e+ 002 * 
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1.3317565171508312 

—0.30513080462192+ 0.119172017550061 
—0.30513080462192- 0.11917201755006i 
0.18134794708006+ 0.068417374665541 
0.18134794708006- 0.068417374665541 
>> eig (A4) 

ans=1.0et+ 002 * 

1 .33756571508372 

0.18134794708006+ 0.068417374665541 
0.18134794708006- 0.068417374665541 
—0.30513080462192+ 0.119172017550061 
—0.30513080462192- 0.11917201755006i 


非 线性 方程 求 根 


pe 


在 许多 实际 问题 中 ,经 常 需 要 求 非 解 线性 方程 
f(x) 一 0。 (8.1) 
草 主 要 介绍 求解 非 线 性 方程 的 几 种 常用 的 数值 解法 ,有 迭代 法 .牛顿 法 、 嘴 截 法 、 试 位 
法 ,改进 的 牛顿 法 、Brent 法 和 抛物 线 法 等 。 


31 达 代 法 


1. 功能 
求 方程 f(z) 二 0 在 xo 附近 的 根 。 
2. 计算 方法 
(1) 将 方程 (8. 1) 等 价 地 转化 为 方程 
r= g(r), (8. 2) 
(2) 构造 迭代 公式 
TH = (Xi), k=0,1,., (8.3) 
上 式 称 为 不 动 点 迭代 法 ( 它 将 求解 方程 f(z) 二 0 转化 为 求解 阴 数 g(xz) 的 不 动 点 ),g (x) 称 
为 迭代 水 数 。 
(3) 检验 迭代 终止 条 件 是 否 满 足 , 奇 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 
迭代 终止 的 条 件 : | zi; 一 <tal [或 一 全 


3. 使 用 说 明 


<tol]. 


[xp,err,numiter|]= fixiter (fun,x0,tol,maxiter) 


fun 是 迭代 函数 ,zx 是 初始 点 ,tol 是 容 差 , maxiter 是 最 大 迭代 次 数 。 输 出 根 的 近似 值 
xp、 最 后 的 | ziti Xk | 一 err 和 实际 欠 代 次 数 numlter。 
4. MATLAB 程序 


function [xp,err,numiter]= fixiter (fun,x0,tol,maxiter) 


if nargin< 4 
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maxiter= 1000; 

end 

if nargin<3 
tol= J]e— 8; 

end 

xl1= feval (fun,x0); 

k=1; 

while abs (xl— x0)>=tol & (k<maxiter) 
x0= xl1; 
xl1= feval (fun, x0); 
k=k+1; 

end 

Xp= Xl]1; 

err= abs (xl1— x0)，} 


numiter= k; 
例 8.1 用 过 代 法 求 方程 5x 一 21zx 十 15==0 的 根 。 


解 ” 有 和 多 种 方法 将 方程 5x* 一 21x 十 15 二 0 等 价 地 转化 为 x 二 g(x)。 如 


(a) X= g1 (7) 一 全 一 全 (b) z 一 gz (Z) 一 Z 一 5 过 十 21z 一 15 一 一 5 三 十 22z 一 15; 


S15 15 
(c) i (d) TFET) To 
Pl 
(€) X=g5 (1)=7 rg 
原 方程 的 两 个 根 分 别 为 于 十 光一 3. 287434209 和 区 一 所 0 和 0， 912565791。 我 们 


选取 多 个 初始 点 进行 迭代 ,发 现 和 迭代 后 都 收敛 到 较 大 的 根 。 蓝 色 的 路 (虚线 ) 是 连接 点 (zi， 
yr | ) ， (XI] »T2) » (Ts? ;Ts ) » (Ts »T3), (Xs ,zs),… 而 成 的 。 它 是 一 条 指 问 y 一 工 和 二 gg1 (z) 的 右 
交点 的 路 ,并 展示 了 序列 XT1 2 ,Za … 的 收敛 过 程 。 画图 程序 如 下 : 


funl=inline(" 21/5- 3/x '); 
ff=inline('x'); 
x(1)=0.9; 
for i=1:9 
x(i+1)= funl (x(i)); 
end 
Xx= [Xx(1),x(1),x(2),x(2),x(3),x(3),x(4),x(4),x(D),x(6),x(6) ,x(7),x(7) ,x(8),x(8)]; 
yy= [x(1),x(2),x(2),x(3),x(3),x(4),x(4),x(S),x(6),x(6),x(7) ,x(7),x(8),x(8) ,x (3)]; 
trlot ttonl I=—2070.=20.0]. rr") 
hold on 
fplot (ff, [- 20, 8], 'g:") 
hold on 
plot (xx, yy, 'b—— ") 
hold off 


存 为 ext8_1.m。 在 MATLAB 命令 窗口 调用 ext8_1 得 图 8. 1。 
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一 


-15 


-0 —10 -5 


8.1 和 迭代 序列 收敛 示意 图 


利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


fuml=inline(" 21/5— 3/x ")s 

fun2=inline('—- 5 x 2+ 22¥ x—-159 '); 

fun3= inline(' (5* x^2+15)/21"'); 

fun4= inline('15/(21-— 5x x) '); 

fun5= inline('x— (5x* x^2— 21 x* x+15)/(2x x+8) '); 
[xpl,errl,numiterl]= fixiter (funl,0.9,0.00000]) 
[xp2, err2,numiter2]= fixiter (fun2,0.9,0.00000]) 
[xp3, err3,numiter3]= fixiter (fun3,0.9,0.00000]) 
[xp4,err4,numiter4]= fixiter (fun4,0.9,0.000001) 
[XxpY, erry,numiterS]= fixiter (funy,0.9,0.00000]1) 
[xp6,err6,numiter6]= fixiter (funy,1.6,0.00000]1) 


存 为 ex8 1.m。 在 MATLAB 命令 窗口 调用 ex8_1, 运 行 后 有 如 下 结果 : 


>>ex8 1 

Xxpl= 3.28743436440863,errl= 4.052075870397687e- 007,numiterl= 17。 
Xp2=— Inf,err?2= NaN,numiter?2=11。 

xp3= 0.91256522837511,err3= 7.324760683546927e- 007,numiter3= 12。 
xp4= 0.91256566895802,err4= 3.183739191170432e- 007,numiter4= 9。 
XpI= NaN, err= NaN,numitery= 874。 

xp6= 3.28743413986587,err6= 3.026834454189498e- 007,numiter6= 12。 


可 见 , 由 迭代 函数 glCz),gs(Cz) 和 gz) 生 成 的 序列 收敛 , 且 收 敛 到 两 个 不 同 的 根 , 而 
(b) 和 (e) 是 发 散 的 。 对 于 (e) , 取 另 一 初始 值 zo 二 1.6, 它 就 收 化 了。 对 于 同一 个 求 根 问题 ， 
不 同 的 迭代 函数 可 导致 不 同 的 结果 。 同 一 个 迭代 函数 ,对 不 同 的 初始 值 收 敛 性 也 不 一 定 相 
同 。 如 何 选 择 迭 代 哺 数 和 初始 点 才能 使 迭代 序列 稳定 且 迅 速 收敛 到 要 求 的 根 呢 ?” 下 面 的 收 
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敛 性 定理 为 选择 迭代 郴 数 提供 了 些 线索 。 
定理 8.1 设 g(r)ECla,b|, 且 满足 . 
(1) 对 任意 的 x€E[a,6b], 有 g(x)E€lLa,bj; 
(2) g'(z) 在 La,b5] 上 存在 且 0 志 L 二 1 使 得 对 一 切 xE La,b] 有 
| g' (zx) | 委 工 ， (8. 4) 
则 zi41 三 g(x) 对 任意 初 值 zrE[La,o 均 收敛 于 g(xz) 在 La,bj]| 的 唯一 不 动 点 x” , 且 有 误差 
估计 式 


WS PE eI ES i (8.5) 


1 一 上 


Ea (8.6) 


32 达 代 法 的 加 速 收 化 


如 果 由 (8. 3) 式 生成 的 迭代 序列 收敛 速度 很 慢 时 ,可 采用 Aitken 加 速 法 和 Steffensen 
加 速 法 进行 加 速 。 


82.1 Aitken 加 速 法 


1. 功能 

求 方程 f(z) 二 0 在 xo 附近 的 根 。 

2. 计算 方法 

(1) 对 迭代 公式 ziti1 二 g(xi) ,k= 二 0,1,… ,进行 修正 
(X41 — Te) 

Zi — 2X001 二 TX 


k=0,]1,.， (8.7) 


Tktl ~ Xk 


此 方法 称 为 Aitken 加 速 法 。 
(2) 检验 迭代 终止 条 件 是 否 满 足 , 厂 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


迁 代 终止 的 条 件 ， zz <tol [或 Tat Th 
3。 使 用 说 明 


<tol] 


太 & 十 1 


[xp,err,numiter|]=aitkeniter (fun,x0,tol,maxiter) 


fun 是 迭代 隐 数 ,zx。 是 初始 点 ,tol 是 容 差 ,maxiter 是 最 大 迭代 次 数 。 输 出 根 的 近似 值 
xp ,最 后 的 | 莽 , 4 一; |= 二 err 和 实际 迭代 次 数 numiter。 
4. MATLAB 程序 


function [xp,err,numiter]=aitkeniter (fun,x0,tol,maxiter) 
if nargin< 4 
maxiter= 1000; 
end 
if nargin<3 


tol= le 8; 


end 

tt= 100;» 

k= 1; 

xl1= feval (fun, x0); 
x2= feval (fun, x1); 
Xx0= x0; 


while tt>=tol & (k<maxiter) 


Xxxl1= x0— (xl1— x0) ^2/ (x2— 2* xl+x0); 


xX3= feval (fun, x2); 
Xx0= xl1;xl1= x2; x2= xX3; 
tt= abs (xxl1— xx0); 
XX0= xxl1; 
k=k+1; 

end 

XPp= Xx0; 

err=tts 


numiter= k; 


例 8.2 用 Aitken 加速 法 求 方程 x 十 2x? 一 4 二 0 的 根 。 
解 ”将 xz 十 2x’ 一 4 二 0 等 价 地 转化 为 X= 二 g (x) 二 


建立 脚本 文件 如 下 : 


gg= inline('sqgrt (2- x^3/2)"'); 


[xpl,errl,numiterl|]= fixiter (gg,1.5,0.000001) 
[xp2, err2,numiter?2]=aitkeniter (gg,1.5,0.000001) 


存 为 ex8 2.m。 在 MATLAB 命令 窗口 调用 ex8 2, 运 行 


>> ex8 2 


xpl= 1.13039500989822,err1l= 9.26013791868 /406e- 007,numiterl= 83。 
Xxp2= 1.13039289726112,err2= 9.921068289120427e- 007,numiter2= 33。 
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。 利 用 MATLAB 程序 求解 ， 


后 有 如 下 结果 : 


在 精度 基本 相同 的 情况 下 ,迭代 法 需要 迭代 83 次 ,而 Aitken 加 速 法 只 需要 迭代 33 次 。 


可 见 加 速 是 很 明显 的 。 
822 Steffensen 加 速 法 
1. 功能 


求 方程 f(z) 二 0 在 xo 附近 的 根 。 


2. 计算 方法 


(1) 把 Aitken 加 速 技巧 与 不 动 点 迭代 法 结合 , 则 由 (8.7) 式 可 得 到 如 下 过 代 法 : 


Ye = g(TE) Zh = gE) 


ZhH = Th 


此 方法 称 为 Steffensen 加 速 法 。 


(8.8) 
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(2) 检验 迭代 终止 条 件 是 否 满足 , 若 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 ， 
迁 代 终止 的 条 件 : an 一 mx1<tol[ 或 Tetl 一 


“上 十 1 
注 : Steffensen 加 速 法 是 将 不 动 点 迭代 法 (8.3) 计 算 两 次 合并 成 一 步 得 到 的 , 它 可 改写 
成 .一 种 不 动 点 迭代 法 : 


<tol | 


ZHI = pT), k=0,1,., (8.9) 
其 中 ， 
[a= 
ser) — 20(2) 
在 一 定 条 件 下 ,(8.9) 式 是 平方 收敛 的 。 
3. 使 用 说 明 


VCZ) 一 工 (8.10) 


[xp,err,numiter|]= steffniter (fun,x0,tol,maxiter) 


fun 是 迭代 阴 数 ,zx。 是 初始 点 ,tol 是 容 差 , maxiter 是 最 大 迭代 次 数 。 输出 根 的 近似 值 
xp、 最 后 的 | zt+1 一 2 | =err 和 实际 迭代 次 数 numlter。 
4. MATLAB 程序 


function [xp,err,numiter]= steffniter (fun,x0,tol,maxiter) 
if nargin< 4 
maxiter= 1000; 
end 
if nargin<3 
tol= le-— 8; 
end 
tt= 100; 
k=1; 
while tt>=tol & (k<maxiter) 
y= feval (fun,x0); 
z= feval (fun,y); 
xl1= x0— (y— x0)^2/(2z-2*% ytx0); 
tt= abs (xl1— X0) ; 
Xx0= xl1; 
k=k+1; 
end 
Xp= Xx0; 
err=tt; 


numiter= k; 
例 8.3 用 Steffensen 加 速 法 求 例 8. 1 中 方程 的 根 ,分 别 采 用 (b) 和 (e) 中 迭代 发 散 的 迭 


代 函 数 g(xz) 和 gs (zx)。 
解 ” 利 用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 
fun2= inline(' 一 D5 关 X^2+22 关 X-15 7)， 


fun5= inline('X- (5x* x’^2— 21¥ xt+15)/(2x* xt+8) '); 
[xp2, err2,numiter?2]= steffniter (fun2,0.9,0.000001) 
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[xp5, errs,numiterS]= steffniter (funs,0.9,0.000001) 


存 为 ex8 3.m。 在 MATLAB 命令 窗口 调用 ex8_3 ,运行 后 有 如 下 结果 。 


>> ex8 3 
Xp2= 0.91256579]129621,err2= 6.503986238470816e- 011,numiteTr2= 5。 
XpI= 0.91256579]129620,err5= 6.382198458609878e- 008,numiter5= 4。 


两 个 程序 计算 的 结果 基本 相同 , 它 说 明 即 使 迭代 法 (8. 3) 不 收敛 ,用 Steffensen 加 速 法 


仍 可 能 收敛 。 


83 二 分 法 


数 。 


1. 功能 
若 方 程 f(z) 二 0 在 La,6bj 内 有 唯一 实 根 且 f(a)f(6) 二 0, 求 其 根 。 
2. 计算 方法 


Q& 十 0 
pA 


(2) 如 果 Fa) Fo 二 0, 则 ac; 否则 65<-c。 转 向 (1)。 
3. 使 用 说 明 


(1) 设 c= 


,看 三 c) 人 0 或 了 (6 一 a)~0, 则 停止 送 代 ， 


[xp,errl=bisect (fun,a,b,tol,maxiter) 


输入 : fun 二 f(x) ,左右 端点 a,b6,1xX(k) 一 T(k 一 1) | 的 上 限 tol,maxiter 二 最 大 进 代 次 
输出 : 根 的 近似 值 xp, 根 的 误差 估计 err。 
4. MATLAB 程序 


function [xp,errl]=bisect (fun,a,b,tol,maxiter) 
fa= feval (fun,a) ;fb= feval (fun,b); 
if fax* fb>0 
error(' 必 须 有 f(a)f(b)<0'); 
end 
if nargin<5 
maxiter= 60; 
end 
if nargin< 4 
tol= le— 8; 
end 
k= 0; 
tt= 100;» 
while (tt>=tol) & (k<maxiter) 
c= (at+b) /2; 
fc= feval (fun,c):; 
err= (b-— a) /2:; 
if abs (fc)<eps| abs (err)<tol 


break; 


a 
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elseif fcx fa>0 
a=c;fa= fc; 
else 
b=c; 
end 
tt= err; 
k= k+1; 
end 
XP— Cs 
例 8.4 求 方程 @ 二 4 一 x* 的 根 。 
解 ”首先 画 出 > 一 e 和 yy 二 4 一 zx? 的 图 像 ( 见 图 8.2)。 在 MATLAB 命令 窗口 输入 
fun=inline('exp (x)— 4+x’2"); 
fplot ('exp (x) ', [- 2.5, 2]) 
hold on 
eo er A pd Ph 
axis([- 3,3,- 1,>]) 


则 绘图 如 下 : 


8.2 y= 二 e* 和 y= 二 4 一 x? 的 图 像 


由 图 8. 2 可 见 , 方 程 在 一 2 和 1 附近 有 两 个 根 。 分 别 取 区 间 [ 一 2. 3, 一 1.6] 和 [0.8,1.5j, 用 
二 分 法 求 其 根 。 

在 MATLAB 命令 窗口 调用 bisect, 有 如 下 结果 : 

>> [xpl,errl]=bisect (ftun, 一 2.3, 一 1.6) 

[xp2,err2]=bisect (fun,0.8,1.5) 

xpl=—1.964635593444]11,errl= 5.215406440051140e- 009。 

xp2= 1.05800640061498,err2= 5.215406440051140e- 009。 


注 : 二 分 法 的 优点 是 计算 简单 ,收敛 性 有 保证 ,但 是 它 不 能 求偶 重 根 和 复 根 。 
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34 试 位 法 


与 二 分 法 类 似 , 假 设 /(z) 在 La,5b] 上 连续 且 满 足 f(a)f(5) 二 0。 二 分 法 使 用 La,6bj] 的 中 

点 进行 下 一 次 迭代 , 试 位 法 (the false position or regula falsi method) 对 它 进行 了 改进 , 它 用 

经 过 点 (a,f(a)) 和 (5,f(5)) 的 制 线 工 与 x 轴 的 交点 (c,0) 进 行 下 一 次 迭代 ,这 里 ， 
CO) 一 a) af(b)— bf (a) 


(PO—a) _ . 8.11 
f(D)—fla) f(0)— fa) 


1. 功能 

知 方 程 f(z) 二 0 在 [a,6b] 内 有 唯一 实 根 且 f(a)f(65) 二 0, 求 其 根 。 

2. 计算 方法 

(1) 取 (8. 11) 式 的 c, 若 f(c) 守 0 或 6 一 c 守 0, 或 c 一 a 之 0, 则 停止 迭代 。 
(2) 如 果 Fa) F(c) 二 0, 则 a<c; 否 则 0<c。 转 向 (1) 。 

3. 使 用 说 明 


[xp,errl= regfals (fun,a,b,tol,maxiter) 


输入 : fun 二 f(z), 左右 端点 a,b,tol 二 min(|zx(k) 一 a1,165 一 x(k)|) 的 误差 上 限 ， 
maxiter 一 最 大 迭代 次 数 。 输 出 : xp 为 根 的 近似 值 ,err 一 min(|xp 一 a| ,12 一 xp|)。 
4. MATLAB 程序 


function [xp,err|l= regfals (fun,a,b,tol,maxiter) 
fa= feval (fun,a) ;fb= feval (fun,b); 
if fax fb>0 
error(' 必 须 有 f(a)f(b)<0'):; 
end 
if nargin<5 
maxiter= 200; 
end 
if nargin< 4 
tol= le— 8; 
end 
for k=1:maxiter 
c= (ax fb-bx fa)/ (fb- fa);fc=feval (fun,c); 
err=min (abs (c- a),abs (b— c)); 
if abs (fc)<eps| abs (err)<tol 
break; 
elseif fcx fa>0 
a=c;fa= fc; 
else 
b=c;fb= fc; 
end 


end 


xp=c; 


例 8.5 求 f(x)==tan(7s 一 x) 一 x+==0 在 [1.7,3] 上 的 根 。 
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解 ” 利 用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


fun=inline('tan(pi— x)—x"'); 
[xpl,errl|]= regfals (fun,1.7,3) 
fplot (fun, [1.7,3]) 
hold on 
plot ([1.7,3],1[0,0],'k— ") 
hold on 
xl1= 1.7000;yl1= fun (x1) ;XX= [3.0000,2.5805,2.3642,2.2400]; 
for k=1:4 
YY (kK)= fun (XX (k) ) ;plot ([x1,XX(k)], [yl,yy (Kk)],'r.—— ) 
end 


hold off 
存 为 ex8_5.m。 在 MATLAB 命令 窗口 调用 ex8_5 ,运行 后 有 如 下 结果 : 


>> ex8 5 
Xp= 2.02875785349056,err= 1.158178544037264e- 009。 


注 : 试 位 法 总 是 收敛 的 ,但 一 般 只 有 线性 收 化 。 二 分 法 的 终止 条 件 不 适用 于 试 位 法 。 


如 果 将 这 两 种 方法 在 第 nn 次 得 到 的 有 根 区 间 记 为 [a,,b, | 的 话 , 则 在 二 分 法 中 必 有 b, 一 a 趋 
于 0, 而 在 试 位 法 中 ,b, 一 a, 越 来 越 小 ,但 它 可 能 不 趋 于 0, 图 8. 3 就 是 这 种 情况 。 在 图 8. 3 
中 , 左 端点 a, 始终 不 动 , 都 是 1.7, 而 右 端点 b,( 图 中 的 x;) 始 终 从 根 右 侧 接 近 于 根 。 


-3 
1.7 1.8 2 2.2 2.4 2.6 2.8 3 


8.3 试 位 法 求解 f(x)==tan(x 一 x) 一 x 二 0 


85 和 牛顿 -拉夫 和 森 法 


1. 功能 

用 牛顿 -拉夫 森 (Newton-Raphson) 迭 代 法 求 方程 f(z) 二 0 的 一 个 根 。 

2. 计算 方法 

牛顿 -拉夫 和 森 迭 代 法 是 通过 对 非 线 性 方程 过 步 线性 化 的 迭代 方法 。 硅 已 知 方程 f(x)= 二 0 
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的 根 zx* 的 一 个 近似 值 zi ,将 f(x) 在 xi 处 Taylor 展开 
0 pg oR, Wo Ph + EO — zx)’. 


取 其 线性 部 分 , 即 用 线性 方程 
fxr) fF rr—r)=0 (8. 12) 

近似 f(z) 二 0。 若 六 (zi) 关 0, 方 程 (8. 12) 的 根 记 为 zi41, 则 得 x* 的 新 近似 值 
Ey) 


过 AH ~ Xk 7 9 
a 
(8. 13) 式 称 为 牛顿 -拉夫 森 法 和 迭代 公式 ,其 迭代 函数 为 


、_ f(z) 
g(z) = zt py (8. 14) 


k= 0,] ,°°, (8. 13) 


3. 使 用 说 明 
[xp,err, kl= newraph (fun, x0,tol,maxiter) 


输入 : fun 二 (x), 需要 定义 为 符号 负数 ,zxo 为 初始 点 ,tol 二 1(zxCk 十 1) 一 I(k))/zx(k 十 1)| 
的 误差 上 限 ,maxiter 二 最 大 迭代 次 数 。 输 出 xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 
和 迭代 次 数 。 

4. MATLAB 程序 


function [xp,err,kl]=newraph (fun,x0,tol,maxiter) 
if nargin< 4 
maxiter= 200; 
end 
if nargin<3 
tol= le-— 8; 
end 
df= diff (fun); 
for k=1:maxiter 
fx0= subs (fun,x0); 
X1=X0- fx0/subs (df, x0); 
err= abs (xl1— x0) / (abs (x1)+ eps); 
x0= xl1; 
if (err<tol) | (abs (fx0)< eps) 


break; 


xp= x0; 

例 8.6 求 方 程 f(z) 二 x 一 5x= 二 0 的 根 。 

解 ” 如 果 取 初始 点 zo 二 1, 代 入 程序 newraph 计算 , 则 迭代 序列 在 一 1 和 1 之 间 一 直 重 
复 。 我 们 求 得 函数 f(x) 在 x 二 1 处 的 切线 方程 为 y 二 一 27 一 2, 在 x 二 一 1 处 的 切线 方程 为 
y 王 一 27z 十 2, 将 这 些 方程 画 在 同一 图 中 ,从 图 8.4 中 容易 看 出 重复 的 原因 。 

如 果 改 变 初始 值 , 则 它 很 快 收敛 到 方程 的 一 个 根 0,V5( 守 2. 23606797749979) 或 一 V5。 
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-65 
-3 -2 一 0 1 2 3 


8.4 求解 f(z) 二 zx’ 一 5x==0 的 牛顿 -拉夫 森 和 迭代 产生 的 循环 序列 


利用 MATLAB 程序 求解 ,建立 图 数 和 脚本 文件 如 下 : 


function y=exa8 6 (X) 
Syms x; 
y= XxX 3- 5 Xx; 


存 为 exa8 6. m。 


[xpl,errl, kl1]= newraph (exa8 6,1,1e- 6,10) 
ezplot (exa8 6) 

hold on 
二 
fplot('-2x x+2', [- 3,3,-5,5],'g-— .0) 

plot ([- 3,3], [0,0],"k") 

plot ([1,1], [0,- 4],"m:") 

plot ([-1,—1],10,4],"m:") 

hold off 

[xp2,err2,k2]= newraph (exa8 6,0.9,1e- 6,30) 
[xp3,err3,k3]=newraph (exa8 6,1.2,1e- 6,50) 
[xp4,err4,k4]=newraph (exa8 6,-1.1,1e- 6,50) 


将 脚本 文件 存 为 ex8 6.m。 在 MATLAB 命令 窗口 调用 ex8 6, 运 行 后 有 如 下 结果 . 


>>ex8 6 

xpl=1,errl= 2.00000000000000, kl= 10。 

Xp2= 0, err2= 0, k2= 6。 

Xp3=— 2.23606797749979,err3= 7.928185323318684e- 010,k3= 8。 
Xxp4= 2.23606797749979,err4= 4.410370875292975e- 011,k4= 6。 


例 8.7 求 方 程 f(x)= 二 arctanx 二 0 的 根 。 
解 如 果 取 初 值 Xo 二 1. 45, 它 是 发 散 的 , 见 图 号 如 果 取 初始 点 Xo 二 1. 3, 则 很 快 收 
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敛 到 精确 解 z 二 0。 利 用 MATLAB 程序 求解 ,建立 函数 和 脚本 文件 如 下 : 


1.5 


0.5 


一 3 一 2 一 1 0 1 2 3 


8.5 求解 f(x)= 二 arctanzx 二 0 的 牛顿 -拉夫 和 森 迭 代 产 生 的 发 散 序 列 


function y=exa8 7(x) 


Syms x; 
y= atan (x); 


存 为 exa8 7. m。 


yl=inline(' (x—-1.45)/(1+1.45^2)+atan (1.45) '); 

y2= inline(" (x+ 1.5503)/(1+1.5503^2)+atan(- 1.5503)"); 
y3= inline('" (x—-1.8459)/(1+1.8459^2)+atan(1.8459) '); 
fun=inline('atan (x)"'); 

folot(huwn, [=33=1.91.51. r") 

hold on 

fplot (yl, [- 3,3], 'g: ") 

fplot (y2, [- 3,3], 'm- .") 

fplot (y3, [- 3,3], 'c-—') 

plot ([- 3,3],1[0,0]) 

plot ([1.45,1.45], [0,atan(1.45)],'k:") 
Biot{[=1.5503,=1.55903]sI0.atan(=1.59503})]y ks )】 

plot ([1.8459,1.8459], [0,atan (1.8459) ],'k:") 

text (1.45,0,'x0") 

text (=1.5503,0; "x1") 

text (1.8459, 0, 'x2") 

text (— 2.8891, 0, 'x3"') 

hold off 

[xpl,errl, kl1]= newraph (exa8 7,1.45,1e- 6,10) 

[xp2, err2,k2]=newraph (exa8 7,1.3,1e- 6,20) $ 取 不 同 的 初始 值 x0=1.3 


将 脚本 文件 存 为 ex8_7.m。 在 MATLAB 命令 窗口 调用 ex8_7, 运 行 后 有 如 下 结果 ( 见 
图 8.5)， 
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>>ex8 7 
xpl= 2.130989544165321let+ 070,errl=1,kl= 10。 
Xp2= 0, err2= 0, k2= 8,。 


由 于 牛顿 -拉夫 和 森 法 只 是 局 部 收敛 ,所 以 初始 点 必需 比较 接近 根 才 可 能 收敛 ,特别 地 ， 
当 f(z) 的 斜率 在 解 附近 有 突变 时 ,很 可 能 发 散 。 关 于 牛顿 -拉夫 和 森 法 的 收敛 性 ,有 如 下 
定理 。 

定理 8.2 (1) 假 设 f(x) 有 m(m 记 2) 阶 连续 导数 ,zx* 是 f(x) 二 0 的 单 根 , 则 当初 始 值 
Zo 充分 接近 x” 时 ,牛顿 -拉夫 森 迭 代 法 至 少 二 阶 收 敛 ; (2) 假 设 f(x) 有 gq(g 三 2) 阶 连续 导 
数 ,z 是 f(x) 二 0 的 g 重 根 , 则 当初 始 值 ze 充分 接近 z 时 ,牛顿 -拉夫 和 森 迭 代 法 仅 有 线性 

例 8.8 求 方程 f(z) 二 (x 一 2x 一 3)s* 二 0 的 根 。 

解 显然 方程 有 重 根 zi 二 一 1,zx;s 二 3。 利 用 MATLAB 程序 求解 ,建立 函数 如 下 : 

function y=exa8 8 (x) 


Syms x; 
y= (Xx 2— 2* x— 3)^8; 


存 为 exa8 8. m。 在 MATLAB 命令 窗口 调用 newraph, 运 行 后 有 如 下 结果 : 


>> [xp,err, kl]= newraph (exa8 8,1.5,1e- 8,100) 

Xp= 2.99767245409354,err=1].110060081197866e-- 004, k= 44, 

当 遇 到 重 根 时 ,牛顿 -拉夫 和 森 迭 代 法 变 慢 , 为 了 提高 收敛 速度 ,需要 对 原 迭 代 法 做 适当 的 
修改 或 用 Steffensen 加 速 法 。 当 知道 根 的 重 数 m 时 ,可 将 迭代 涌 数 变 为 


g(r) = (8. 15) 
如 果 不 知道 根 的 重 数 , 则 用 f(z) 构造 限 数 
Em re (8. 16) 


若 zx* 是 f(z) 的 ml(m 宇 2) 重 根 , 则 xz* 是 7Cz) 的 单 根 。 对 7Cz) 用 牛顿 -拉夫 森 法 则 至 少 具 
有 平方 局 部 收敛 。 


ne 
如 果 用 (8. 16) 式 对 例 8. 8 改进 ,此 时 MTT Bra) =“ 对 n(x) 用 牛顿 -拉夫 
森 法 ,求解 如 下 。 


function y=exa8 8g (x) 
syms x; 
Y= 2 2 (2 221) 


存 为 exa8_8g. m。 在 MATLAB 命令 窗口 调用 newraph, 运 行 后 有 如 下 结果 : 


>> [xp,err, kl]= newraph (exa8 89g,1.5,1e- 8,100) 
Xp= 3,err= 8.585724723767877e- 015,k= 7。 


仅 欠 代 了 7 次 就 收敛 到 精确 解 , 可 见 改进 后 的 效果 很 好 。 
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36 基线 法 


牛顿 -拉夫 森 法 用 切线 近似 曲线 y= 二 f(z) 求 得 新 的 近似 值 , 它 需 要 计算 导数 (zx)。 当 
计算 广 Cz) 比 较 困 难 时 ,可 用 FCz) 在 一 些 点 上 的 图 数值 来 近似 。 例 如 ,用 曲线 上 两 点 确定 
的 直线 ( 割 线 ) 来 近似 曲线 求 得 方程 的 近似 根 , 这 种 方法 称 为 割 线 法 ( 弦 截 法 ) 。 如 果 用 曲线 
上 的 三 点 作 抛 物 线 近 似 曲 线 , 求 得 方程 新 的 近似 根 的 方法 称 为 抛物 线 法 (Muller 法 ) 。 


1. 功能 
用 割 线 法 求 方程 f(zx) 二 0 的 一 个 根 。 
2. 计算 方法 
将 牛顿 -拉夫 森 选 代 公式 (8. 13) 中 的 广 (xx) 用 市 线 斜率 方 Ze 一 人 2 代替, 即 得 币 
线 法 迭代 公式 
_ _ a — Tl) ,. 
Xin = Xe Fr) — Fc) Fr) k | We (8.17) 
3. 使 用 说 明 


[xp, err, kl= secant (fun, x0, xl], tol,maxiter) 


输入 : fun 二 f(x), 初 始点 zxo ,Xi,tol 二 1 (zk 十 1) 一 x(k))/zx(k 十 1) | 的 误差 上 限 ， 
maxiter 一 最 大 友人 代 次 数 。 输 出 : xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 和 迭代 
次 数 。 

4. MATLAB 程序 


function [xp,err,k]= secant (fun,x0,xl,tol,maxiter) 
if nargin<5 
maxiter= 200; 
end 
if nargin< 4 
tol= le— 8; 
end 
fx0= feval (fun,x0); 
fxl= feval (fun,x1); 
for k=1:maxiter 
xX2= x1— fxl *X (xl— x0)/ (fxl- fx0); 
fx2= feval (fun, x2); 
err= abs (x2— x1) / (abs (x2)+ eps); 
if (err<tol) | (abs (fx2)< eps) 
break; 
end 
xXx0= xl1;xl1= x2; 
fx0= fxl;fxl= fx2; 
end 


xp= x0; 
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例 8.9 求解 方程 9e * 一 sin2x 一 3 二 0。 
解 ” 男 出 9e 与 sin2x 十 3 的 图 像 ( 见 图 8.6) ,可 见 它 们 在 0.8 附近 有 唯一 的 交点 。 


9*exp(-¥) 
一 一 一 sin(2*x)+3 


8.6 9e 与 sin2x 十 3 的 图 像 


建立 脚本 文件 如 下 : 


ffl=inline('9x* exp (一 X) '); 
ff2=inline('sin (2¥* x)+3"'); 

Fplot (ffil, (~14;0,10]1) 

hold on 

Pe i 

legend ('9* exp(—x)','sin(2* x)+3"') 
hold off 

fm=inline('9% exp(— x}— sin(2¥% x})— 3"); 
[xpl,errl, kl1|= secant (fun,0.6,1.5,1e- 6,950) 
[xp2, err2,k2]= secant (fun,1,1.8,1e- 6,50) 
[xp3, err3,k3]= secant (fun,1,1.9,1e— 6,50) 


存 为 ex8 9.m。 在 MATLAB 命令 窗口 调用 ex8 9, 运行 后 有 如 下 结果 : 


>>ex8 9 

xpl= 0.81132990504576,errl= 1.925631283531484e- 007, kl= 8。 
xp2= 0.81127143141713,err2= 5.266246736074852e- 009, k2= 14。 
Xxp3=— 85.57652845396939, err3= 0,k3= 13。 


可 见 硅 取 初 值 zo 二 1,zi 二 1.9, 则 出 现 错误 的 结果 。 这 是 因为 制 线 法 是 局 部 收敛 ,只 有 
初始 值 充 分 接近 根 时 才 收敛 。 


sinh(1— sinzx+ zx) 
例 8.10 设 f(z)== 一 一 一 一- > “了  _, 求 f(x) 的 3 阶 导 数 六 (zx) 的 所 有 
7 V1 十 Xx*1ln(l1 十 Xarctanx 十 e* ) / 1 


零点 。 
解 记 g(z) 二 f(z), 由 于 g(x) 的 表达 式 太 复杂 ,所 以 用 制 线 法 求 其 根 比较 合适 。 割 
线 法 的 收敛 速度 (收敛 阶 数 为 (1 十 V5)/2 守 1. 618) 与 牛顿 -拉夫 森 法 的 相当 ,但 不 需要 求 导 
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数 g(x),g'(X) 比 g(x) 更 复杂 。 由 图 8.7 可 见 ,g(x) 共 有 5 个 根 ,选择 合适 的 初始 点 ,可 用 
割 线 法 求 出 它们 ( 见 下 面 的 » 3 二 4 


一 3 一 2 一 1 0 1 2 | 


8.7 产 (zx) 的 图 像 


建立 好 数 文件 exa8_10. m。 


function y=exa8 10 (x) 
Syms x; 
y=asinh (1- sin (x)+ x 2)/(sqrt (1l+x’^2) < log(l+x* atan (x) ^2+ exp (X^2) ) ) ， 


建立 脚本 文件 如 下 : 


g=diff (exa8 10,3); 

fun= inline(…) s… 为 g 的 表达 式 , 因 太 复 条 ,此 处 略 去 , 详 见 sx8 10.m 文 件 
ezplot (g, [- 2,2.2] ) 

hold on 

plot ([- 3,3],1[0,0],"'r") 

hold off 

[xl1,errl,kl1l]= secant (fun,—1.5,— 1.2,1e— 6,950) 
[x2,err2,k2]= secant (fun,— 0.8,— 0.5,1e— 6,950) 
[x3,err3,k3]= secant (fun,0.3,0.8,1e— 6,50) 
[x4,err4,k4]= secant (fun,1.2,1.5,1e- 6,50) 
[xX5, erry, k5]= secant (fun,1.7,2.5,1e- 6,950) 


存 为 ex8_10.m。 在 MATLAB 命令 窗口 调用 ex8_10, 运 行 后 有 如 下 结果 : 


>>ex8 10 

xl=—1.37896321368638,errl= 5.558249774373341le- 010, kl= 7。 
Xx2=— 0.60784017972442,err2= 3.030287193729654e- 008, k2= 7。 
X3= 0.50791561382835,err3= 4.118536687008440e- 008, k3= 13。 
Xx4= 1 .34994285855703,err4= 4.519030203633412e- 008,k4= 7。 
XI= 2.06806261697640,err5= 6.350186798652016e- 009, k5= 8。 
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87 改进 的 牛 融 法 


设 X=r 是 方程 f(x)==0 的 根 ,z=a 是 根 r 的 近似 值 , 并 设 f(x) 是 可 导 的 。 考 察 曲 线 
y 二 f(z) 在 点 (a,f(a)) 处 的 切线 ,切线 方程 为 y 一 f(a) 二 了 (a) (x 一 a)。 切 线 与 xz 轴 的 交点 


为 z==a 一 和 , 它 给 出 了 牛顿 -拉夫 森 法 的 近似 值 4 一 a 一 六 & 。 我 们 考察 曲线 y 一 (2) 
上 的 两 点 (a,f(a)) 和 (5, 了 (5)) 的 制 线 ,以 改进 上 述 近 似 值 。 此 割 线 方程 为 y 一 f(a) 王 


了 人 一 7 Ca) ( 一 0--- 
二 (4 一 a), 制 线 与 z 轴 的 交点 为 z 一 a 一 /a) [二 $0) -因为 5 一 a= 


_ f(a) fay)’ en , EO 
入 CT, 所 以 z=a 一 Peace 一。 我 们 取 此 值 c 为 根 的 下 一 个 近似 值 ( 见 


f(a) = Ja) > — ~ a 
图 8.8)。 如 果 h== fra) 7 , 则 0 一 < yt Frere 如 果 初 始点 为 a 二 zo ,第 


次 近似 值 c= 二 zi , 则 


f(xo) | 
A Tb [元 hs (8.18) 


其 中 ,二 六 重复 此 过 程 可 以 得 到 近似 序列 zu ,zi ,zs，… ,一 般 地 ， 


_ 2 f(z) ] 
Xtl 一 Xk DR = 二 和 h， (8. 19) 


其 中 ， 1 一 六 区 可 以 连续 应 用 此 迭代 公式 直到 求 得 满足 精度 要 求 的 近似 根 。 和 迭代 公 
Rh \ 式 收敛 速度 更 快 。 此 法 称 为 跳 点 牛顿 法 或 改进 的 牛顿 


法 (the improved Newton method)。 


(b, 7(b)) 


8.8 改进 的 牛顿 法 的 几何 解释 
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1. 功能 

用 改进 的 牛顿 法 求 方程 f(z) 二 0 的 一 个 根 。 
2. 计算 方法 

利用 壕 代 公式 (8. 19)。 

3. 使 用 说 明 


[xp,err,kl= lfnewton (fun, x0,tol,maxiter) 


输入 : fun 二 了 (Xx), 需要 定义 为 符号 函数 ,初始 点 zo ,tol 二 1 (zx(k 十 1) 一 XT(k))/x(k 十 1)| 的 
误差 上 限 ,maxiter 一 最 大 迭代 次 数 。 输 出 : xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 
和 迭代 次 数 。 

4. MATLAB 程序 


function [xp,err,k]l= lfnewton (fun,x0,tol,maxiter) 
if nargin< 4 
maxiter= 200;} 
end 
if nargin<3 
tol= le— 8; 
end 
df= diff (fun); 
digits (60) 
for k=1:maxiter 
fx0= subs (fun, x0) ;hh= fx0/subs (df, x0)，; 
fxh= subs (fun,x0— hh) ;x1= x0— (fx0/ (fx0- fxh)) * hh; 
err= abs (xl1— x0)/ (abs (x1)+ eps) ;x0= x1; 
if (err<tol) | (abs (fx0)< eps) 
break; 
end 


end 

Xp= Xx0; 

例 8.11 求 方程 e* 二 zx’ 一 z 的 根 。 

解 ” 先 画 出 方程 的 图 像 ( 见 图 8.9) ,可 见方 程 在 1 附近 有 唯一 实 根 。 
利用 MATLAB 程序 求解 ,建立 函数 .脚本 文件 如 下 : 


function y=exa8 11 (x) 


Syms x; 
y= exp (— x 2)— x 3+x; 


存 为 exa8g 11. m。 


LE 

hold on 

plot ([- 2,2],1[0,0],"'r:") 

[xpl,errl, kl1]= lfnewton (exa8 11,0.85,1e- 6,5>0) 
[xp2,err2,k2]= lfnewton (exa8 11,0.36,1e- 6,>0) 
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8.9 方程 图 像 


[xp3,err3,k3]= lfnewton (exa8 11,0.357,1e- 6,50) 
[xp4,err4, k4]= lfnewton (exa8 11,0.356,1e— 6,100) 
[xpy, erry, kS]= lfnewton (exa8 11,0.3555,1e-— 6,100) 


将 以 上 脚本 文件 存 为 ex8_11. m。 在 MATLAB 命令 窗口 调用 ex8_11, 运 行 后 有 如 下 
结果 : 


>>ex8 11 
xpl=1.12009374043393,errl= 7.929500787639820e- 016, kl1= 4。 
xp2= 1.12009374043393,err2=1.982375196909955e- 016, k2= 25。 
xp3= 1.12009374043393,err3=3.151976563086828e- 014, k3= 41。 
xp4= 1.12009374043393,err4= 3.174377402811911e- 012, k4= 56。 
xp5= 1.120093740433926, err5= 4.274895570464228e- 009, k5= 70。 


注 : 当初 始 值 接近 临界 点 一 一 f(z) 的 极 大 值 点 0.3538379575 时 (此 时 导数 接近 于 0)， 
收 人 敏 速度 减 慢 。 

例 8.12 求 方程 zx 一 3z2 一 5 一 0 的 全 部 根 。 

解 ” 先 画 出 方程 的 图 像 ( 见 图 8. 10) ,可 见方 程 在 3.5 附近 有 唯一 实 根 。 

利用 MATLAB 程序 求解 ,建立 图 数 .脚本 文件 如 下 : 


function y=exa8 12 (x) 


Syms x; 
y=X 3 3 x 2— 5; 


存 为 exa8_12. m。 


i ee ee el 

hold on 

plot ([- 2,3],1[0,0],'r:") 

[xpl,errl, kl1]= lfnewton (exa8 12,2.8,1e- 6,>0) 

[xp2, err2, k2]= lfnewton (exa8 12,2.003,1e- 6,100) s2 是 极 小 值 点 ,导数 等 于 0 
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8.10 方程 图 像 


[xp3,err3,k3]= lfnewton (exa8 12,1.3+2* i,le- 8,50) 
$$ 方程 男 有 一 共 力 复 根 ,适当 选取 初 值 为 复数 可 求 得 
[xp4,err4,k4]= lfnewton (exa8 12,2-0.7* i,le- 8,50) 
allroots= roots ([1,— 3,0,— 5]) 


名 用 MATLAB 的 roots 命令 检验 ,[1,- 3,0,5] 为 方程 (多 项 式 ) 的 降 震 系数 
将 以 上 脚本 文件 存 为 ex8 12.m。 在 MATLAB 命令 窗口 调用 ex8 12 ,运行 后 有 如 下 


>> ex8 12 
Xxpl= 3.42598875736162,errl= 7.583632364948681e- 012, kl= 4。 
Xxp2= 3.42598875736162,err2= 4.318096205265103e- 007,k2= 93。 
Xp3=— 0.21299437868081+1.18914510810655i,err3= 3.507003211297378e- 016,k3= 6。 
xp4=-0.21299437868081- 1.18914510810655i,err4= 3.516923181908893e- 013,k4= 5。 
allroots= 
3.42598875736162 
—0.21299437868081+ 1.18914510810655i 
-0.21299437868081- 1.18914510810655i。 


例 8.13 求 方程 /C1) =arctan[ S| l + 0 的 实 根 。 

解 ” 为 求 得 负 实 数 的 实 立 方 根 , 我 们 必须 用 MATLAB 困 数 nthroot 建立 立方 根 , 且 也 
数 nthroot 的 变量 必须 是 实数 。 因 涉及 导数 ,程序 lfnewton 中 的 参数 fun 需 定 义 为 符号 加 
数 ,这样 我 们 就 无 法 直接 用 程序 lfnewton 求解 此 例题 。 为 此 ,我 们 将 lfnewton 修改 为 如 下 
的 程序 1fnewton2 。 


function [xp,err,k]= lfnewton2 (fun,dfun,x0,tol,maxiter) 
改进 的 牛顿 法 求 方程 f(x)=0 的 根 , 输 入 : fun=f(zx),dfun 为 fan 的 导数 

sx0 为 初始 点 ,tol= | (x(kr1)-x(k))/x(kt1)1 的 误差 上 限 ,maxiter= 最 大 迭代 次 数 
s 输 出 : xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 迭代 次 数 
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digits (60) 
for k=1:maxiter 
fx0= feval (fun,x0) ;hh= fx0/feval (dfun, x0)，; 
fxh= feval (fun,x0— hh); 
xl1= x0— (fx0/ (fx0- fxh)) * hh; 
err= abs (x1— X0) / (abs (x1)+eps);x0= x1; 
If (err<tol) | (abs (fx0)< eps) 
break; 
end 


end 


Xp= x0} 
建立 脚本 文件 如 下 : 


fun= inline('atan (nthroot ( (x-1)/41,3))+sinh (X) 7V1797) ; 

dfun= inline('"1/123V/atan (nthroot ((1/41¥ x—1/41)^2,3))/(1+ (17V41 关 X-1V/41)^2)+17179 关 cosh (x) 
Is 

Sdfun 为 fun 的 导数 

fplot (fun, [- 1,3]) 

hold on 

plot ([-1,3],10,0],'r:") 

[xpl,errl, kl1|]= lfnewton2 (fun,dfun,0.5,1e- 8,50) 

[Xp2, err2,k2]= lfnewton2 (fun,dfun,1.01,1e— 8,50) 


存 为 ex8 13.m。 在 MATLAB 命令 窗口 调用 ex8_13, 运 行 后 有 如 下 结果 ( 见 图 8. 11、 
图 8. 12). 


>> ex8 13 
xpl= 0.9999883972668]1,errl=1.784959573790299e- 01]1, kl= 13。 
Xp2= 0.9999883972668]1,err2= 2.109448222152705e- 015,k2= 11。 
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8.11 例 8.13 的 函数 图 形 
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8.12 zo 二 1.01 时 ,第 一 次 迭代 的 几何 解释 


注 : 此 例 用 牛顿 -拉夫 森 法 无 法 求 出 正确 的 结果 (除非 初始 值 非常 接近 精确 解 ) ,这 也 是 
改进 后 牛顿 法 比 牛顿 -拉夫 森 法 的 优越 之 处 。 


38 ”Halley 法 


设 a 是 方程 f(x) 二 0 的 根 r 的 近似 值 ,并 设 f(x) 有 二 阶 导数 。f(z) 在 zx 二 a 处 的 二 阶 
Taylor 多 项 式 是 : p(x) 二 f(a) 十 f (wz 一 oO 十 六 了 (QD) (zx 一 a)*。p(z) 的 零点 将 是 f(z) 的 零 


点 + 的 更 好 的 近似 值 ,因此 ,考察 方程 /a) 十 /Ca)(z 一 a) 十 示 /9(a) (zx 一 a)* 二 0。 将 方程 改 


写 为 Ha 十 (z 一 a)[ (oO 十 太 5 一 全] 一 0, 由 此 可 得 ， 


ff) 
”1« PCa) COLE a) See 
将 它 与 牛顿 -拉夫 和 森 迭 代 公 式 对 比 ， 
f(a) 
T=a Fla)* (8.21) 
一 般 情况 下 ，(8. 20) 式 分 母 中 的 + 一 a 与 (8. 21) 式 的 + 一 a= 一 比 变化 不 大 ， 
f(a) 


人 一) bb J (4) 小。 将 (8. 20) 式 分 母 中 的 一 a 符 换 为 一 六 C 得 到 xz 一 “一 


ee 给 定 方程 f(x)=0 的 根 > 的 初始 近似 值 xu 一 “ ,得 公式 
1 oo) 
a 
ep em (8. 22) 
2f (x) 

(8. 22) 式 称 为 Halley 迭代 公式 。 

1. 功能 

用 Halley 法 求 方程 f(x) ==0 的 一 个 根 。 


Tetl 一 XR 
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2. 计算 方法 
利用 迭代 公式 (8. 22) 。 
3. 使 用 说 明 


[xp,err,kl=halley (fun, x0, tol,maxiter) 


输入 : fun= 二 f(z), 需要 定义 为 符号 阴 数 ,初始 点 zo ,tol 二 | (zx(k 十 1) 一 Xx(k))/x(k 十 1)| 的 


误差 上 限 ,maxiter 二 最 大 迭代 次 数 。 输 出 : xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 
迭代 次 数 。 


4. MATLAB 程序 


function [xp,err,k]l=halley (fun,x0,tol,maxiter) 
if nargin< 4 
maxiter= 200; 
end 
if nargin<3 
tol= le— 8; 
end 
df= diff (fun) ;ddf= diff (df) ;digits (60) 
for k=1:maxiter 
fx0= subs (fun,x0) ;dfv= subs (df,x0) ;ddfv= subs (ddf, x0);}; 
xl1= x0— fx0/ (dfv— fx0 * ddfv/ (2 关 dfv) ); 
err= abs (xl1— x0) / (abs (x1)+ eps) ;x0= xl1; 
If (err<tol) | (abs (fx0)< eps) 
break; 
end 


end 


xp= x0; 


78422406 19349653 
例 8.14 求 多 项 式 x 一 3xx’ 十 DEARCIT TT B405C 一 上 一 一 的 全 部 根 。 


解 画 出 函数 的 图 像 ( 见 图 8. 13) ,可见 方程 在 3. 3 附近 有 唯一 实 根 。 
日 
6 


| 


图 8.13 函数 图 像 
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利用 MATLAB 程序 求解 ,建立 男 数 、 脚 本 文件 如 下 : 


function y=exa8 14 (x) 
Syms x; 
y= XxX 3— 3x< pix x’2+ 78422406/2648617 * x— 19349653/624056; 


存 为 exa8_14.m。 


fplot ('"X^3-3x pi x X^2+ 78422406/2648617 x* X- 19349653/624056"', [1,5]) 
hold on 
plot ([1,3S],10,0],"'r:") 
[xpl,errl, kl1l]=halley (exa8 14,3,1e- 6,50) 
[xp2,err2,k2]=halley (exa8 14,2.8-0.5* i,le- 6,50) 
[xp3,err3,k3]=halley (exa8 14,2.9+0.6* i,1le— 6,50) 
allroots= roots([l1,— 3x* pi,78422406/2648617,— 19349653/624056]) 
名 用 MATILAB 的 roots 命令 检验 


将 以 上 脚本 文件 存 为 ex8_14. m。 在 MATLAB 命令 窗口 调用 ex8_14, 运 行 后 有 如 下 


>> ex8 14 

xpl= 3.14147672983924,errl= 7.152216038976313e- 007, kl1l= 12。 

Xp2= 3.14165066744899- 0.00010048243730i,err2= 5.623356975184704e- 008, k2= 18。 
xp3= 3.14165067153297+ 0.00010048846]111i,err3= 8.123395377153356e- 007,k3= 16。 
allroots=3.14165056265101+ 0.00010030088510i,3.14165056265101- 0.000100300885101 
3.14147683546735。 


从 相同 的 初始 点 开始 ,用 牛顿 -拉夫 和 森 法 得 到 类 似 的 结果 ,需要 氨 代 20 次 ,Halley 法 一 
般 比 牛顿 -拉夫 森 法 收敛 速度 更 快 。 


例 8. 15 求 f(z) 一 tanh(z? 一 1) 十 条 一 0 的 实 根 。 

解 f(z) 有 单 实 根 , 且 曲 线 y= F(Cz) 有 两 条 斜 渐 近 线 i 对 这 个 相当 病态 的 函 
数 , 通 过 实验 验证 牛顿 -拉夫 和 森 法 收敛 到 f(x) 的 零点 的 区 间 为 0. 8622255 三 x 硅 1. 130341, 而 
Halley 法 收敛 的 区 间 为 0. 34876917 三 x 过 1. 3300023。 如 果 初 始 值 取 在 相应 的 收敛 区 间 之 
外 ,将 导致 迭代 的 值 在 一 24,24 之 间 重 复 ,它们 正 是 FGz) 的 两 条 渐 近 线 在 工 轴 上 的 截 距 。 

利用 MATLAB 程序 求解 ,建立 限 数 、 脚 本 文件 如 下 : 


function y=exa8 15 (x) 
Syms x; 
y= tanh (x^7- 1)+x/24; 


存 为 exa8g 15. m。 


fplot ("tanh (x^7- 1)+x/24", [- 5,5]) 
hold on 

Polob("s/24 1 [=5331 bs")s 
Falot( x/24- 1 [=55])r be") 
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plot ([- 53,53], [0,0],'r:") 

[xpl,errl,k1l]=halley (exa8 15,0.34876917,1e- 6, 50) 

[xp2,err2,k2]=halley (exa8 15,1.3300023,1e- 6,>0) 

[xp3,err3,k3]=halley (exa8 15,0.34876916, 1e- 6, 50) 此 初始 值 导 致 迭代 发 散 , 见 xp3 的 值 
[xp4,err4,k4]=halley (exa8 15,1.3300024, le- 6,50) $$ 此 初始 值 导致 迭代 发 散 , 见 xp4 的 值 


存 为 ex8 15. m。 在 MATLAB 命令 窗口 调用 ex8 15 ,运行 后 有 如 下 结果 ( 见 图 8. 14): 


>> ex8 15 

xpl= 0.99397219789925,errl= 5.108979105606473e- 007, kl1= 8。 
Xxp2= 0.99397219789925,err2= 4.387737521082102e- 012, k2= 12。 
xp3= 24.00000000000000,err3= 2.00000000000000,k3= 50。 

xp4= 24.00000000000000,err4= 2.00000000000000, k4= 50。 


8.14 例 8.15 的 函数 及 其 渐 近 线 的 图 像 


38389 Brent 法 


1. 功能 
用 Brent 法 求 在 区 间 [La,oj 上 两 端点 图 数值 异 号 的 方程 f(z) 二 0 在 La,o 内 的 一 个 根 。 
本 算法 兼 有 二 分 法 和 反 搬 值 的 优点 ,只 要 困 数 在 方程 的 有 根 区 间 内 可 求 值 , 则 它 的 收敛 


速度 比 二 分 法 快 且 对 病态 困 数 也 总 能 保证 收敛 。 


2. 计算 方法 
设 [a,b] 为 方程 f(x)= 二 0 的 一 个 有 根 区 间 , 即 f(a) f(6) 二 0, 不 妨 设 1f(65) | 三 | f(a)|。 


具体 计算 方法 为 


(1) 取 c=a,f(c)= f(a)。 
(2) 若 坟 |c 一 中 < 或 F(CO) 王 0, 则 2 为 满足 精度 要 求 的 根 ,程序 终止 ;否则 ,执行 (3)。 


(3) 者 a 一 c, 则 用 二 分 法 求 根 的 新 近似 值 z; 耕 < 天 c, 则 用 (ae, f(a)),(b,f(65))， 
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(c,f(c)) 作 反 二 次 插值 , 且 让 y= 二 0, 则 得 出 根 的 新 近似 值 : 


z 一 0 十 襄 ， (8. 23) 
其 中 ， 
也 一 SCTCR 一 T)(c 一 四 一 (1 一 R)G 一 a))，Q=(T 一 1)CR 一 1)(CS 一 1)， 
四 _f0) _ f(a) 
flO) fla) flc)® Re 


用 过 代替 原来 的 2 ,将 原来 的 5 作为 新 的 a。 在 上 述 过 程 中 5 是 当前 根 的 最 好 近似 值 ， 
P/Q 是 对 2 的 微小 修正 值 。 当 修正 值 P/Q 使 新 的 根 的 近似 值 x 落 在 区 间 [c,5bj 之 外 ,以 及 
当 有 根 区 间 用 反 插 值 计 算 衰 减 很 慢 时 ,用 二 分 法 求 根 的 近似 值 。 返 回 (2) 重 复 执行 ,直到 求 
得 满足 精度 要 求 的 根 或 达到 给 定 的 最 大 迭代 次 数 。 

3. 使 用 说 明 


brent (fun,a,b,tol,maxiter) 


输入 : fun 二 f(x) ,左右 端点 a,b,tol 为 精度 要 求 ,maxiter 二 最 大 迭代 次 数 。 输 出 : xp 
为 根 的 近似 值 。 
4. MATLAB 程序 


function xp= brent (fun,a,b,tol,maxiter) 
if nargin<5 
maxiter= 200; 
end 
if nargin< 4 
tol= le— 10; 
end 
fa= feval (fun,a); 
fb= feval (fun, b); 
c=a;fc= fa; 
if fax fb>0 
error ("两 端点 的 函数 值 必须 异 号 '); 
end 
for k=1: maxiter 
hl=b- a; 
if abs (fc)< abs (fb) 
a=b;b= c;C= a; 
fa= fb;fb= fc;fc= fa; 
end 
tolx= (le 一 11) < abs (b)+0.5x* tol; 
h2= (ED /2 
if abs (h2)<tolx 
break; 
end 
if abs (h2)>=tolx & abs (fa)> abs (fb) 
S= fb/fa; 


1f d==€ 
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P=2x* h2* 5S; 
C=1-35; 
else 
T= fa/fc; 
R= fb/fc; 
P=Sx* (2x*x h2x* Tx (R-T)- (b-a) * (1-—R)); 
OC 0 
end 
1f E30 
0——0; 
end 
P= abs (了 P) ; 
if 2x* P<minl(abs(3x* h2x* Q-abs (tolxx Q))，abs (hl * Q)) 
h2= P/Q; 
end 
end 
if abs (h2)< tolx 
if h2>0 
h2= tolx; 
else 
h2= — tolx; 
end 
end 
a=b; fa= fb; 
b= bt+ h2; 
if b==bt+h2 
break; 
end 
fb= feval (fun,b); 
If ((fb>0 & fc>0)| (fb<0 & fc< 0)) 


C=a: fc= fa: 


end 
end 
Xp= b; 
例 8.16 求 方程 jj (x) 二 sinz 在 区 间 [2,10j]| 的 所 有 根 ,其 路 (xz) 是 第 一 类 Bessel 
半数 。 


解 ” 画 出 函数 图 像 , 由 图 8.15 可 见 , 方 程 分 别 在 区 间 [2,3],[5.5,6.5] 和 [9,9.5] 上 各 
有 一 个 根 , 分 别 用 brent 程序 计算 。 
利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


fun=inline('Bessel]j (1,x)— sin (x) '); 
fplot ('Bessel] (1,x) ', [2,10]) 

hold on 

ol Inn00 sili0ls Ra) 
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8.15 本 数 Ji (zj 与 sinz 的 图 像 


plot ([2,10], [0,0],"'r:") 

xp= brent (fun, 2, 3, 1e— 8) 

Xpl= brent (fun,5.5,6.5,1e—- 10) 

Xxp2= brent (fun, 9,9.5, 1e— 9) 

Xl1= fzero (fun, 2) s 用 MATLAB 的 图 数 fzero 检 验 
X2= fzero (Euny6) 

X3= fzero (fun, 9) 


存 为 ex8 16.m。 在 MATLAB 命令 窗口 调用 ex8_16, 运 行 后 有 如 下 结果 : 


>> ex8 16 
Xp= 2.67614252308349, xpl= 6.00357784855498, xp2= 9.20672923974802。 
Xl1l=2.67614252308349,X2= 6.00357784855498,X3= 9.20672923974802。 


可 见 用 Brent 法 计算 的 结果 比较 精确 。 


例 8. 17 求 FCz) 一 sin(z)2 一 mo 在 L1,4j 上 的 所 有 零点 。 


解 男 出 晒 数 图 像 ( 见 图 8. 16 .图 8. 17) ,由 于 几 个 根 比 较 集 中 , 画 出 局 部 图 。 可 见 男 数 
分 别 在 区 间 [2.9,3j],L3,3.1j],[3.1,3.2j 和 [3.2,3.3] 上 各 有 一 个 零点 。 
利用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


funl= inline('sin (x) ^2- sin (30* x)^3/18"');，; 
fplot (funl, [1, 4]) 

figure 

Pe a ka :1 Bp Ae ps 

hold on 

at SO OO 全) 

xpl= brent (fun]l,2.9,3,1e-— 8) 

Xp2= brent (funl, 3,3.1,1e- 10) 

xp3=brent (fun]l,3.1,3.2,1e— 9) 
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1.2 
1 
0.8 
0.6 
0.4 
0.2 
0 
me 1.5 2 2.5 3 3.5 4 
8.16 国 数 sin(z)? 十 SmC30z) 的 图 像 


-01s 26 2.7 2.8 2.9 3 3.1 3.2 3.3 3.4 了 .5 
。 3 
8.17 函数 sin(z)? 十 smes0z 的 局 部 图 像 


Xp4=brent (fun1,3.2,3.3, le- 9) 
X= fzero (fun1,3.3) $$ 用 MATLAB 的 图 数 fzero 检验 


存 为 ex8 17.m。 在 MATLAB 命令 窗口 调用 ex8_17, 运 行 后 有 如 下 结果 . 


>>ex8 17 

xp 1=2.96442378144990, xp2= 3.01247794154686, 
Xp3= 3.14225945405870, xp4= 3.22834979524399。 
X= 3.22834979524399。 


310 抛物 线 法 


给 定 曲线 y= 二 f(z) 上 不 共 线 的 三 点 (zo ,f(z0)),(ZT1 ,f(z1)),(zs，f(zz)), 通 过 这 三 点 
作 抛 物 线 y= ps(z) ,选取 ps(z) 二 0 的 一 个 合适 的 根 zs 作为 方程 f(z) 二 0 的 新 近似 根 ( 见 


图 8.18)。 这 样 确定 的 迭代 过 程 就 是 抛物 线 法 ， 
或 称 为 Muller 法 。 

1. 功能 

用 抛物 线 法 求 方程 f(x) = 二 0 的 一 个 根 。 

2. 计算 方法 


设 通 过 三 点 (zos f(zo0)), (zis fF (xi)), 
(zs，f(xs)) 的 抛物 线 为 
ps (TX) = a(z— Zzx2) 十 5 一 pz) 十 c。 
(8. 25 ) 


这 里 的 常数 a,b 和 c 由 下 列 条 件 确 定 
f(xo) = al(xo — zx2) 十 DCzo 一 2z) 十 c， 
f(xi) 一 azrl 一 Zoo) 十 (zi 一 oz) 十 c， 


-03 
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一 一 拖 物 线 y =p, 人 
1 TT 肌 线 y = 了 (x) 7 


03 


-1 


8.18 抛物 线 法 的 初始 点 To » TX1 » 2 及 


J (zz) 一 5。 新 的 近似 值 zs 
(8. 26 ) 
求解 线性 方程 组 (8. 26) 得 ， 
人 一 一 丰 (zz)， (8. Pa 
(xo — XT2) (fz) 一 (zy)) 一 (zl 一 了 zz) (fxo) a (8 28) 
(Xo — ZX ) (Xo — ZX1) (Xi — ZX) 
0 (2 — EC A O— fOr) — (me CC— I) Cf (ns) 一 了 (za)) (8 29) 
Ce 
求解 二 次 方程 (8. 25) ,为 避免 有 效 位 数 的 损失 ,用 下 列 二 次 式 求 根 
= Pe 
Ta 一 一 一 一， (8. 30 ) 
| b+ vb CO— 4ac 


它 与 求 二 次 根 的 标准 公式 等 价 。 为 确保 方法 的 稳定 性 ,选取 (8. 30) 式 中 绝对 值 较 小 的 根 , 即 
“十 ”或 “一 ”的 选取 应 与 b 相同 。 确 定 xs 后 ,用 x ,xo ,xs 替换 xo ,xi ,x ,再 确定 下 一 个 近似 值 。 


3. 使 用 说 明 


[xp,err, kl=muller (fun, x0, x], x2,tol,maxiter) 


输入 : fun 二 f(x) ,zo ,Xi ,Xs 是 初始 点 ,tol= 二 | 上 (x(k 十 1) 一 Xx(k))/x(k 十 1) | 的 误差 上 限 ， 
maxiter 一 最 大 友人 代 次 数 。 输 出 : xp 为 根 的 近似 值 ,err 为 根 的 误差 估计 ,k 为 实际 迭代 次 数 。 


4. MATLAB 程序 


function [xp,err,kl=muller (fun,x0,x]1,x2,tol,maxiter) 


if nargin<6 
maxiter= 200; 
end 
if nargin<5 
tol= le-— 8; 
end 
fx0= feval (fun,x0); 
fxl= feval (fun, x1); 
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fx2= feval (fun, x2); 
for k=1:maxiter 
hl= xl1— x0; 
h2= x2— xl1; 
dif]l= (fx1- fx0) /hl; 
dif2= (fx2- fx]) /h2; 
a= (dif2— dif])/ (x2- x0); 
b=dif2+h2x* a; 
c= fx2; 
delta= sqrt (b^2- 4* ax c); 
if abs (b- delta)< abs (b+ delta) 
h=—-2* c/(bt+delta); 
else 
h=—-2x* c/(b- delta); 
end 
x3= x2+ h; fx3= feval (fun, x3); 
err= abs (h) / (abs (x3)+ eps); 
if err<tol |abs (fx3)< eps 
break 
end 
Xx0= xl1;xl1= x2; x2= x3; 
fx0= fxl; fxl= fx2; fx2= fx3; 
end 


XPp= xX3; 
例 8.18 求 方程 x? 十 Tcos(647) 一 2 一 0 的 根 。 


解 ” 画 出 函数 的 图 像 ( 见 图 8. 19 ,画图 程序 见 ex8_18. m) ,其 零点 不 是 很 清楚 , 需 更 近 一 点 
观察 , 画 出 它 的 局 部 图 像 ( 见 图 8. 20) ,可 见 在 z 二 0 的 方向 只 有 一 个 根 在 1.4 和 1.5 之 间 。 


8.19 例 8.18 的 函数 图 像 
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13 132 134 136 138 14 142 144 146 148 1.5 


图 8.20 函数 的 局 部 图 像 
取 Zoo 一 ]1. | 一 2,Zzz? 一 3 等 不 同 的 初 值 ,建立 脚本 文件 如 下 : 


fun= inline('X^2+ cos (64 关 x) /12- 2'); 

fplot (fun, [- 2,2]) 

figure 

Tolot (fun, [l=3;123]} 

grid on 

[xpl,errl,kll=muller (fun,1.1,2,3) 

[xp2, err2,k2]=muller (fun,0.5,2,2.3) 

[xp3,err3,k3]=muller (fun,0.3,1.2,2.6) 

X= fzero (fun,1.4) 5] 用 MATLAB 的 困 数 fzero 检验 


存 为 ex8_18.m。 在 MATLAB 命令 窗口 调用 ex8_18, 运 行 后 有 如 下 结果 : 


>>ex8 18 

xpl= 1.43540970777813,errl= 4.155497782826537e- 011, kl= 7。 
Xxp2= 1.43540970777813,err2= 3.343695094430243e- 011,k2= 7。 
Xxp3=1.43540970777813,err3= 2.844275205857197e- 010,k3= 7。 
X= 1.43540970777813。 


可 见 , 抛 物 线 法 的 计算 结果 比较 精确 ,收敛 速度 比较 快 (在 一 定 条 件 下 , 它 的 收敛 阶 约 为 
1. 839) , 且 对 初始 值 的 要 求 并 不 高 。 

例 8.19 求 多 项 式 x 一 4zx’ 一 3zx 十 5 的 所 有 根 。 

解 4 次 多 项 式 应 该 有 4 个 根 , 画 出 它 的 图 像 ( 见 图 8. 21 ,画图 程序 见 ex8_19. m) ,看 它 
有 几 个 实 根 。 

由 图 8. 21 可 见 ,此 多 项 式 有 两 个 实 根 ,分 别 在 1,2 附近 。 选 取 不 同 的 初始 值 ,建立 如 下 
脚本 文件 : 


funl= inline('x^4- 4x x’^2— 3x xt+ 5'); 
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—5 一 站 一 了 3 一 2 一 1 0 1 2 本 站 5 
图 8.21 多 项 式 图 像 


TDJUOEUEODL TO 

hold on 

plot ([- 3,3], [0,0],'r-—") 

[xplerri kil=maller (fml 0.5,.0.8.1.5) 

[xp2, err2,k2]=muller (funl,]1,1.7,2.6) 
[xp3,err3,k3]=muller (funl,— 2,— 1,0) 
[xp4,err4,k4]=muller (funl,—1,—1.5,—0.95) 

[xp5, err5,k5]=muller (funl,—1,1.5,—-1.2—-0.3* 1) 
[xp6,err6, k6]=muller (funl,—1,1.5,—-1.2+0.7*x* 1) 
[xp7,err7,ki]=muller (funl,—1,0.6,1-—- 2*x* 工 ) 


roots([1,0,—4,—3,5 |) % 用 MATLAPB 的 roots 命令 检验 ,|1,0, 一 4, 一 3,5 | 为 多 项 
式 的 降 寡 系数 存 为 ex8 19%.m。 在 MATLAB 命令 窗口 调用 ex8_19 ,运行 后 有 如 下 结果 ; 


>> ex8 19 
xpl= 0.86117353204546,errl= 3.949816069417065e- 013, kl1= 5。 
Xp2= 2.06932294880707,err2= 3.390026314920430e- 014,k2= 6。 
Xxp3=— 1.46524824042627- 0.81167177199277i,err3= 6.772181520547184e- 013,k3= 9。 
Xxp4=— 1.46524824042627- 0.81167177199277i,err4= 4.810631993020731le- 012,k4= 8。 
XpI=— 1.46524824042627- 0.81167177199277i,err5= 3.333723311160675e- 012,k5= 8。 
Xp6=— 1.46524824042627+ 0.81167177199277i,err6= 9.646809144274252e- 009, k6= 6。 
xp/=0.86117353204546- 0.00000000000000i,err7= 9.223313905446687e- 010, k7= 6。 
allroots=— 1.46524824042627+ 0.81167177199277i 

—1.46524824042627- 0.81167177199277i 

2.06932294880707 

0.86117353204546。 


从 上 述 计算 可 以 看 出 ,从 实数 的 初始 值 出 发 ,可 以 收敛 到 复数 根 或 实 根 ,从 复数 初始 值 
出 发 也 可 以 收敛 到 实 根 或 复 根 。 用 roots 函数 检验 发 现 ,抛物线 法 的 计算 结果 很 精确 。 
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非 线 性 方程 组 的 数值 解法 


9 
一 Pr 
Ea 


n 个 变量 n 个 方程 的 非 线 性 方程 组 的 一 般 形 式 为 
fi(xisxs, ,TX,) 一 0， 
(9. 1) 
fn (XisT2s°" ,Tn) 一 0。 
其 中 fi(zi ,Xs ,Xi,) (i 二 1,2,…,n) 是 定义 在 DCR"* 上 的 多 元 实 值 图 数 且 至 少 有 一 个 是 
非 线 性 了 黄 数 。 人 简 记 为 Fx) 二 (ix) ,fio《x),…,f,(x)) 一 0,xEDCR"*。 求解 形 如 (9.1) 的 
非 线 性 方程 组 的 问题 越 来 越 多 地 被 提出 来 ,而 且 非 线性 方程 偏 微 分 方程 或 常 微分 方程 离散 
化 后 ,常常 需要 求解 这 种 方程 组 。 本 章 主 要 介绍 求解 非 线性 方程 的 几 种 常用 的 数值 解法 ,有 
不 动 点 迭代 法 .牛顿 法 、 拟 牛顿 法 ,数值 延 拓 法 和 参数 微分 法 。 


91 不 动 品 迭代 法 


1. 功能 
求 方程 F(x) 二 0 在 xo 附近 的 根 。 
2. 计算 方法 
(1) 将 方程 (9. 1) 等 价 地 转化 为 方程 
Ti = gi(TX19T29° 9Tn) (一 1 2，…72)， 
简 记 为 
x=G(x), x= (ri,7xs,°" 7s) €D, (9. 2) 
其 中 ,G(x)= 二 (gi (x) ,g(x), ,g(xX))' 。 
(2) 构造 迭代 公式 
RD Om), E01 (9. 3) 
上 式 称 为 不 动 点 迭代 法 ,G(x) 称 为 迭代 函数 。 
(3) 检验 迭代 终止 条 件 是 否 满 足 , 若 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


(k 十 1 大 
) 一 yx )) 


迭代 终止 的 条 件 : Ee CD <tol. 


norm(x 
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3. 使 用 说 明 
[xp, Kl]=mulfixiter (fun,x0,tolx,maxiter) 


fun 是 迭代 胃 数 ,fun 二 上 gi,8s，…j]- 问 量 形 式 , x 初始 点 - 回 量 形式 ， tol 是 容 差 ， 
maxiter 是 最 大 迭代 次 数 。 输 出 根 的 近似 值 xp 和 实际 迭代 次 数 numiter。 
4. MATLAB 程序 


function [xp,kl=mulfixiter (fun,x0,tolx,maxiter) 
fx0= feval (fun,x0); 
[ml,nll]= size (fx0); [m2,n2|= size (x0); 
if ml~=m2 

x0= x0"; 

[m2,n2]= size (x0); 
end 
if (ml~=m2) | (nl~=n2) 

error('" 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 

maxiter= 1000; 
end 
if nargin<3 

tolx= le— 8; 

end 
for k=1:maxiter 

X]= feval (fun, x0); 

err= norm(xl1— x0)/ (norm (x1)+ eps); 

if err< tolx 

break 

end 

Xx0= xl1; 
end 


xp= x1; 


1( ,YY) 一 ee / es 十 0. 5 一 0， 
例 9.1 求 非 线性 方程 组 | C ee 的 一 组 解 。 
f(x,y)=x 二 4y —4=0 


解 ”首先 将 站 (zy) 王 0 转化 为 z=gi(z,y) = 一 5, 将 f(zx,y) 二 0 转化 为 


y=gs(z1y) 一 一 < 一 4Y 二 8y4。 建立 丽 数 文件 和 脚本 文件 如 下 ， 


function z=exa9 1 (x) 


z= [ (x(1)^2-x(2)+0.5)/2; (~-x(1)^2- 4x* x(2)^2+8x x(2)+4)/8]; 
存 为 exa9_1.m。 


function z=exam9 1] (x) 


z= [x(1)^2-2x* x(1)—-x(2)+0.5;x(1)^2+4x* x(2)^2-4]; 
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存 为 exam9 1. m。 


ezplot('x 2+4¥ y 2-4"',[-3,3,—-1,2]) 当 男 图 
grid 
hold on 


ezplot ('x^2— 2¥* x—- y+ 0.5°', [- 3,3,— 1,2]) 
[xp, kK]=mulfixiter (@ exa9 1, [0;1],1e- 8,100) 
fsolve (@ exam9 1,[0;1]) 和 用 MATLAB 的 fsolve 检验 


存 为 ex9_1.m。 在 MATLAB 命令 窗口 调用 ex9_1, 运 行 后 有 如 下 结果 (图 像 见 图 9. 1): 


9.1 y= 二 x 一 2x 十 0.5 和 x 十 4y: = 二 4 的 图 像 


>> eX9 1 

Xxp=— 0.22221455486850 0.99380841863633， 

k=11。 

Optimization terminated: first— order optimality is less than options. TolFun. 


ans=— 0.22221455505972 0.99380841859983。 


Ge2 和 牛顿 法 


1. 功能 
求 方程 F(x) 二 0 在 x 附近 的 根 。 
2. 计算 方法 
牛顿 法 的 迭代 公式 为 
Ee = lm (9.4) 
(1) 由 x ”计算 x “的 具体 步骤 : 
(a) 计算 F(x®),F(x®); 
(b) 解 线性 方程 组 下 (x@ )Ax% 一 一下 (z ) , 解 得 Ax'9 ; (9. D ) 
(OA 


(2) 检验 迭代 终止 条 件 是 否 满足 , 奉 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 和 欠 代 。 


CRP CE) 
和 迭代 终止 的 条 件 : normCxerm 一 to )<tol| 或 me Ca <tol ]。 
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3. 使 用 说 明 
[xp, fp, kl]=mulnewton (fun, x0, tolx,maxiter) 


fun 二 F(x)- 问 量 形式 , x"” 初 始点 - 癌 量 形式 ,tol 是 容 差 ,maxiter 是 最 大 迭代 次 数 。 输 
出 根 的 近似 值 xp,F(x) 在 xp 处 的 值 fp 和 实际 迭代 次 数 numiter。 

注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 

4. MATLAB 程序 


function [xp,fp,k]=mulnewton (fun,x0,tolx,maxiter) 
sfun= [fl,f2,…], 行 向 量 或 列 向 量 形式 ,需要 定义 为 符号 函数 
s 输 出 fp=fun 在 部 处 的 图 数值 
[ml,nl]l=size(ftun) ; 
[m2,n2]= size (x0); 
if ml~=m2 
x0= x0"; 
[m2,n2]= size (x0); 
end 
if (ml~=m2) | (nl~=n2) 
error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 
maxiter= 1000; 
end 
if nargin<3 
tolx= le— 6; 
end 
var= findsym (fun); 
F= Jacobian (fun,var); s fun 的 Jacobi 矩阵 
for k=1:maxiter 
JF= subs (F, var, x0); 
fx0= subs (fun,var,x0); 
dx= Gausselimpiv (JF,— fx0); 用 Gauss 列 主 元 法 解 方程 组 
xl=x0t dxs 
err= norm (X1- x0) / (norm (x1) + eps); 
if err< tolx 
break 
end 
Xx0= xl1; 
end; 
Xp= Xl1; 
fp= subs (fun, var, xp); 


8z 十 3z* 十 2y* 十 ZXy 一 4x 十 9xz 一 4 二 0， 

例 9.2 求 方程 组 一 z 十 4z* 一 4y: 十 6xy 一 6x: 一 4yz 十 39= 二 0, 的 一 组 解 。 
9y 一 2z 一 3 交 十 4zy 一 8yz 十 20 一 0 

解 ”利用 MATLAB 程序 求解 ,建立 函数 、 脚 本 文件 如 下 : 
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function w= exa9 2 (XryrZ) 

syms xy 2Z; 

Ww= [8¥* z+3x Z^2+2 关 Y^2+XX 关 Y 一 4 关 x 2+ 9 x 2—4,— 2Z+4x 2 2—- 4X y 2+6x% x Y 一 6 关 和 2 一 4 关 了 关 工 
二 39,9X y-2¥% Z 一 3X y2+4¥% x y-8¥ y¥ zt+20]; 


存 为 exa9 2。 


[xp0, fp0, k0]=mulnewton (exa9 2,[- 3,8,12],1e- 8,50) 

[xpl, fpl, kl]=mulnewton (exa9 2,[-3,- 5,-1],1e- 8,50) 

[xp2, fp2, k2]=mulnewton (exa9 2, {5,- 3,3],1e- 8,50) 

[xp3, fp3, k3]=mulnewton (exa9 2, [5,3,3+1i],1e- 8, 50) 

examp9 2=inline("'[8x* x(3)+3x* x(3) 2+2x x(2) 2+x(1) xX x(2)—- 4* x(1) 2+9x* x(1) *x* x(3)—4,—x 
(tA 2 4% x(2) 2 Yr(2)— 60%) 2=4% 2 (3+ 390 .990% (2)= 2 x(3)=3*x 
(2) ^2+ 4 关 和 (1) 关 和 (2) 一 8 关 X(2) x x(3)+20]"'); 

options= optimset ("Display', 'off"'); 

[xf0, Fval0,exitflag0]=fsolve (examp9 2，[- 3,8,12],options) 名 用 fsolve 检 验 
[xfl1,Fvall,exitflagl]=fsolve (examp9 2，[- 3,- 5,- 1],options) 


将 以 上 脚本 文件 存 为 ex9_2. m。 在 MATLAB 命令 窗口 调用 ex9_2, 运 行 后 有 如 下 结果 。 


>>ex9 2 
xp0O=—1.00000000000000 2.00000000000000 1.00000000000000,，, 
fp0=1.0e—- 014 * 


0.17763568394003 0 0, 
k0= 8。 
xpl=- 3.11489924110468 -1.84329570930170 -1.26968293849615, 
fpl=1.0e- 013 * 
0.03552713678801 -0.14210854715202 0, 
kl= 6。 
xp2= 1.95470480815962 -1.23364978056382 0.67531759066428, 


fp2=1.0e- 014 * 
0 0 0.35527136788005, 

k2= 6。 

xp3= 4.83509362734322+ 3.37425550827603i 6.69098294763408- 3.84982845151629i 
1.32823684202788+ 3.18156406103025i，, 

fp3=1.0e- 013 * 
0.28421709430404+ 0.85265128291212i -0.14210854715202+ 0.28421709430404i 
0- 0.56843418860808i， 

k3= 10。 

xf0=-1.00000000000000 2.00000000000000 1.00000000000000, 

Fval0=1.0e- 014 * 


0.17763568394003 0 0 
exitflag0= 1。 
xfl=— 3.05243704273091 —4.52254768794535 0.78536494968975, 
Fvall=1.0e—-013 * 
0 0.14210854715202 0.03552713678801, 


exitflagl= 1。 
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以 上 从 不 同 的 初 值 出 发 ,经 过 几 次 迭代 后 均 得 到 一 组 解 ,它们 都 是 方程 组 的 ( 实 或 复 ) 近 
似 解 。 

从 上 述 计 算 的 结果 中 发 现 ,从 同一 初始 值 [一 3, 一 5, 一 1j 开 始 ,mulnewton 和 fsolve 分 
别 得 到 方程 组 的 不 同 的 解 。 


93 修正 牛 申 法 


1. 功能 
求 方程 F(x) 二 0 在 x。 附近 的 根 。 
2. 计算 方法 
修正 牛顿 法 的 迭代 公式 为 
YD DF (FG) 直 FG F(A) FC ))), k=0,1, 
(9. 6) 
(1) 由 x” 计 算 x* 的 具体 步骤 : 
(a) 计算 F(x ) F(x) 
(b) 解 线性 方程 组 (x)Ax 二 一 F(x ) , 解 得 Ax*; 
(c) 计算 F(x 十 Ax ), 解 线性 方程 组 天 (x)A2x 中 = 二 一 F(x 中 十 Ax*), 解 得 A2x ; 
(d) 今 x*tl) 二 x 十 Ax* 十 和 2x 和 * , 
(2) 检验 迭代 终止 条 件 是 否 满 足 , 吞 满足, 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


(k+1) Ck) 
迭代 终止 的 条 件 ， norm(x47D 一 x )<tol 或 9 “<tol， 
norm(x ) 
3. 使 用 说 明 


[xp, fp, Kl]= impmulnew (fun, x0, tolx,maxiter) 


fun 王 下 (x) -向 量 形式 ,需要 定义 为 符号 图 数 ,x 7 初始 点 - 回 量 形式 ,tol 是 容 差 , maxiter 
是 最 大 迭代 次 数 。 输 出 根 的 近似 值 xp,F(x) 在 xp 处 的 值 fp 和 实际 迭代 次 数 numiter。 

注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 

4. MATLAB 程序 


function [xp,fp,k]= immulnew (fun,x0,tolx,maxiter) 
[ml,nll]= size (fun); 
[m2,n2]= size (x0); 
if ml~=m2 

x0= x0"; 

[m2,n2]= size (x0); 
end 
if (ml ~=m2) | (nl ~=n2) 

error('" 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 

maxiter= 1000; 


end 
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if nargin<3 
tolx= le— 6; 
end 
var= findsym (fun); 
F= Jacobian (fun,var); $$ fun 的 Jacobi 和 矩阵 
for k= 1:maxiter 
JF= subs (F, var, x0); 
fx0= subs (fun,var,x0); 
dx= Gausselimpiv (JF,— fx0); s 用 Gauss 列 主 元 法 解 方程 组 
f2x0= subs (fun,var, x0+ qzx) 
d2x= Gausselimpiv (JF,— f2x0); 
Xl1= x0+ dx+ d2x; 
err= norm(xl1— x0) / (norm (x1) + eps); 
if err<tolx 
break 
end 
x0= xl1; 
end; 
Xp= x1; 
fp= subs (fun, var, xp); 
ee 求 方 和 组 的 一 组 解 。 
52 yt6r yy 十 zy td4r yt5r—50y—36=0 
解 ”利用 MATLAB 程序 求解 ,建立 函数 、 脚 本 文件 如 下 : 


function w= exa9 3(x,y) 

syms x y; 

W= [320— 6¥% x 3 y- 8B¥ x y 3 9% x 3 3% x 2— 150% x, SK x 6 3X yt 6% x 62 vy 2TXX y 3+A 
E01 


存 为 exa9 _ 3。 
脚本 文件 : 


[xpl, fpl,ki]= impmalnew (exa9 3, [一 5v 一 10] ,1e- 8,50) 

[xp2, fp2, k2]= impmulnew (exa9 3,1[3,- 3],1e- 8,50) 

examp9 3=inline("[320— 6¥% x(1) 3¥% x{(2)— 8¥ x(1) 关 工 (2) 3— 9¥% x{(1) 3- 3¥* x(1)° 2— 150¥% x(1),5¥%*x 
(1})*3*x(2)+6* x(1) 2* (2) 21 工 (1) 关 工 (2 tA x 2% x2 (1)}) 2- 50% x(2})— 36] "): 
options= optimset ("Display', 'off'"'); 将 'off' 换 为 'iter', 则 显示 迭代 的 中 间 结 果 
[xfl1,Fvall,exitflagl]=fsolve (examp9 3, 1- >, 10],options) 名 用 fsolve 检 验 

[xf2, Fval2,exitflag2]= fsolve (examp9 3,13,- 3] ,options) 


将 以 上 脚本 文件 存 为 ex9_3. m。 在 MATLAB 命令 窗口 调用 ex9_3, 运 行 后 有 如 下 
结果 : 
>> ex9 3 


xpl=2.00000000000000 -1.00000000000000，, 
fpl=1.0e- 013 * 
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-0.56843418860808 一 0.07105427357601, 
kl= 9。 
Xxp2= 2.33514179034215 一 1 工 .41604650732755， 
fp2=1.0e 一 013 * 
0.56843418860808 站 
k2= 6。 
xfl1=—0.51685359140872 -4.15202225985273, 
Fvall=1.0et+ 002 * 
0.98567217814122 2.35993403310404, 
exitflagl=— 2。 
xf2= 2.33514179034224 一 .41604650732761， 
Eval2=1.0e 一 011 * 
0.82991391536780 一 0.11155520951434, 
exitflag2= 1。 


可 见 两 次 迭代 都 收敛 到 方程 组 的 解 ,收敛 性 及 迭代 次 数 与 初始 值 密切 相关 。 在 一 定 条 
件 下 ,修正 牛顿 法 至 少 三 阶 收敛 , 它 比 牛顿 法 的 平方 收敛 更 快 。 从 上 述 结果 可 以 看 出 , 当 取 
初 值 zo 二 [一 5, 一 10] 时 进行 迭代 ,修正 牛顿 法 收敛 到 方程 组 的 解 , 而 fsolve 发 散 。 


94 拟 牛 顿 法 


在 解 非 线性 方程 组 的 牛顿 法 的 迭代 公式 (9.4) 中 ,用 和 矩阵 A 近似 代替 F'(xi), 得 到 如 
下 的 迭代 公式 : 
PA 0 lew, (9.7) 
其 中 A (k 二 0,1,…) 均 非 奇 异 。 为 了 避免 每 次 迭代 都 计算 逆 和 矩阵 ,我 们 设法 构造 H 直接 通 
近 F'(x”)”!。 由 此 得 迭代 公式 : 
WW P(N Ew, (9. 8) 
称 迭 代 法 (9.7) 或 (9.8) 为 拟 牛 顿 法 。 
选取 不 同 的 矩阵 序列 {4x*} 或 1 机) ,将 得 到 各 类 拟 牛 顿 法 。 


941 Broyden 方 法 


1. 功能 

求 方 程 F(x) 二 0 在 x。 附近 的 根 。 
2. 计算 方法 

Broyden 方法 的 迭代 公式 为 


x‘*tl) = x*) pa A a ) 


(Ay — A,Ax'®® )(Ax'® )! (9.9) 
Ain 一 人 十 一 TA 一 
其 中 ,Axw 一 x+D 一 X Ay. 一 下 (x+D ) 一 下 (xD ) 。 
具体 计算 步 又: 


(1) 当 k 有 =0 时 , 取 A 二 F(x )( 或 ho 取 为 nn 阶 单位 矩阵 ) ,计算 F(x'”), 解 线性 方程 
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组 AuAx'o = 二 一 F(x ) , 求 得 Ax 及 x9) 一 xo0 十 Ax'o ;并 计算 下 (xz ) ,Ayo 及 4i。 

(2) 对 k 宇 1, 解 线性 方程 组 AiAx**= 二 一 F(x ) 得 Ax* ,计算 x*t? = 二 x 十 Ax*， 
i nd 

(3) 检验 欠 代 终止 条 件 是 否 满足 , 知 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


RP clk) 
兴 代 终止 的 条 件 : normCxer 一 #9)<tol 或 me <tol ]。 
norm(x ) 
3. 使 用 说 明 


[xp, fp, kl]= broyden (fun, x0, tolx,maxiter) 


fun 一 F(x)- 癌 量 形式 ,x'” 初 始点 - 癌 量 形式 ,tol 是 容 差 ,maxiter 是 最 大 友人 代 次 数 。 输 
出 根 的 近似 值 xp,F(x) 在 xp 处 的 值 fp 和 实际 迭代 次 数 numiter。 

注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 

4. MATLAB 程序 


function [xp,fp,k]=broyden (fun,x0,tolx,maxiter) 
fx0= feval (fun,x0); 
[ml,nll]= size (fx0); 
[m2,n2]= size (x0);} 
if ml~=m2 
xXx0= x0"» 
[m2,n2]= size (x0); 
end 
if (ml ~=m2) | (nl ~=n2) 
error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 
maxiter= 1000; 
end 
if nargin<3 
tolx= le— 6; 
end 
E= eye (max (m2,n2)); 
AO=E; 
if ml<nl 
fx0= fx0"» 
x0= x0"» 统一 转 为 列 癌 量 
end 
for k=1:maxiter 
dx= Gausselimpiv (A0, - fx0) 用 Gauss 列 主 元 法 解 方 程 组 
xXxl1= x0+ dx; 
err= norm(xl1— x0) / (norm (x1) + eps); 
if err<tolx 
break 


end 
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fxl= feval (fun,xl1); 
if ml<nl 
Ew 
end 
dy= fx1- fx0; 
Al=AO+ (dy- AOX* dx) * dx'/ (dx' * dx); 
x0= x1; 
AO0=Al; 
fx0= fxl1; 
end; 
Xxp= Xl1"; 
fp= feval (fun, xp); 


Z 十 cos(Zyz) 一 1 一 0， 

例 9.4 求 方程 组 1 (1 一 x)“ 十 y 十 0.05z? 一 0.15z 一 1 二 0, 的 一 组 解 。 
—z?—0.1y’ 二 0. 01y 十 xz 一 1=0 

解 ” 利 用 MATLAB 程序 求解 ,建立 脚本 文件 如 下 : 


exa9 4=inline("[x(1)+cos(x(1) * x(2) *x x(3))—1, (1—x(1))^ (1/4)+x(2)+0.05* x(3)^2- 0.15* x(3)—1, 
—x(1)^2-0.1* x(2)^2+0.01* x(2)+x(3)-1]"','x'); 建立 方程 组 

x0= [0,3,— 5]; 

[xp, fp, k]=broyden (exa9 4,x0,1e- 8, 50) 

R= 10 = D1 

[xp1, fpl, kl1]=broyden (exa9 4,x1,1e- 8,50) 

[xf, Fval,exitflag]= fsolve (exa9 4,x0) 用 fsolve 检验 
[xfl1,Fvall,exitflagl]=fsolve (exa9 4,x1) 


存 为 ex9_4.m。 在 MATLAB 命令 窗口 调用 ex9_4, 运 行 后 有 如 下 结果 : 


>> ex9 4 
xp= 0 0.10000000000000 1.00000000000000, 
fp=1.0e— 015 * 

0 0.44408920985006 -0.55511151231258;, 
k= 9。 
xpl= 0.00000000000001 0.09999999999998 Qa:99999999999991. 
fpl=1.0e—- 013 * 

0.12212453270877 —0.16986412276765 一 0.85709217501062， 

kl= 12。 


Optimization terminated: first- order optimality is less than options. TolFun. 
xf=0.00000000000000 0.09999999999999 0.999999999999866, 
Fval=1.0e— 012 * 

0 0 -0.13955503419538, 
exitflag= 1。 
Optimization terminated: first- order optimality is less than options. TolFun. 
xfl=0.77331836100601 一 1.20476301953890i 0.20329618545189 一 0.618619795053721i 
0.11039828114906 一 1].88229713836148i, 
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Fvall=1.0e— 008 * 

0.12059624410199 -0.102223474129911 0.00125439658660 一 0.00146243572807i 

—0.00356489282538 -0.005519562584771， 

exitflagl= 1。 

由 上 述 计算 结果 可 以 看 出 , 当 取 初 值 为 =[0. 3, 一 1,5] 时 ,broyden 和 fsolve 求 得 方程 
组 的 两 组 不 同 的 根 。 


942 DFP 方 法 


1. 功能 
求 方程 F(x) 二 0 在 x。 附近 的 根 。 
2. 计算 方法 


DFP 方法 的 迭代 公式 为 
WetH) 一 x H,F (x'® ) ， 
(Ax'™® ) (AN )T H(Ay™ Ay™ PH: (9 . 10) 
TT rw 9 一 0, 1 ,，……， 
Hi H, 十 (Ax'™® jy (Ay®™ HAY ) k 
其 中 ,AXC =x +) 一 Ay. ~=F(x*t+D)—F(x® ) 。 
具体 计算 步骤 : 


(1) 当 k 二 0 时, 取 本 二 F(x”)7 1( 或 Ho 取 为 nn 阶 单位 矩阵) ,计算 F(x'”), 求 得 Ax' 及 
x = x 二 Ax'” ;并 计算 F(x ) a 及 H, ; 

(2) 对 有 之 1 ,计算 x*tl 一 Xe 十 Ax* ,F(x *tl) ) ,Ay* 及 H,. ; 

(3) 检验 迭代 终止 条 件 是 否 满足 , 告 满 足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


(TD 一 Xe ) 
迭代 终止 的 条 件 : norm(x**? 了 一 x* )<tal [或 CD <tolj 
3. 使 用 说 明 


norm(x 
norm(x 


nonlsdfp (fun,x0,tolx,maxiter) 


fun 二 F(x)- 癌 量 形式 ,需要 定义 为 从 号 负数 ,x"” 初始 点 - 回 量 形式 ,tol 是 容 差 , maxiter 
是 最 大 夫 代 次 数 。 输 出 根 的 近似 值 xp,F(x) 在 xp 处 的 值 fp 和 实际 迭代 次 数 尼 。 

注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 

4. MATLAB 程序 


function [xp,fp,k]=nonlsdfp (fun,x0,tolx,maxiter) 
var= findsym (fun); 
F= Jacobian (fun,var); s fun 的 Jacobi 和 矩 阵 
fx0= subs (fun,var,x0); 
[ml,nll]= size (fx0); 
[m2,n2]= size (x0); 
if ml~=m2 
Xx0= x0" 
[m2,n2]= size (x0); 
end 


if (ml ~=m2) | (nl ~=n2) 
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error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 
maxiter= 1000; 
end 
if nargin<3 
tolx= le— 6; 
end 
if ml<nl 
fx0= fx0"» 
X0=X0 7 7 s 统 一 转 为 列 向 量 
end 
HO= subs (F, var, x0); 
HO= inv (HO); s 经 过 多 例 实践 证 明 H0 取 (F' (x0))-1 效 果 较 好 ,者 取 HO 为 单位 矩阵 ,效果 很 差 
for k=1:maxiter 
dx= — HO * fx0; 
Xxl1= x0+ dx; 
fxl= subs (fun,var, xl1); 
if ml<nl 
fxl= fxl1"; 
end 
dy= fxl1— fx0; 
Hl=H0O+ (dx * dx')/(dx'* dy)— (HO*x dy* (dy)"* HO)/((dy)"* HO* dy); 
err= norm(xl1— x0)，; 
if err<tolx 
break 
end 
Xx0= x1; 
HO= Hl1; 
fx0= fxl1; 
end 
XpP=X0 " ; 
fp= fx0; 
2z 一 4zy 十 7 交 一 5yz 一 4 光 十 322 一 0， 
例 9.5 求 方程 组 ;7y 吐 十 3z2zz 十 3zyz 一 5y2 xz 一 5z3 十 3x2 一 635 王 0, 的 一 组 解 。 
3z xz 一 2zz 一 9yz 十 Zy 十 并 一 3y 一 269 一 0 
解 ”建立 困 数 .脚本 文件 如 下 : 


function w= exa9 5 (XryrZ) 

syms xy 2Z; 

W= [2#x x^3- 4X x2 yt 7 y^3- 5 yx 2z—- 4x y^2+ 322, 7 yx 2z^(2)+3x% x 2 z+ 3 x yx Zz—- 5 
V2 2 tI 2 2 003 .3% ZI 2 2091> 


存 为 exa9 5. m。 


了 
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[xp, fp, k]=nonlsdfp (exa9 5,x0,1e- 8, 50) 

[xpl, fpl, kl]=nonlsdfp (exa9 5,x1,1e- 8,1>0) 

[xp2, fp2, k2]=nonlsdfp (exa9 5,x2,1e- 8,150) 

exam9 5S=inline(" [2¥* x(1) 3— A¥%* x(1}) 2¥* x(2)+71¥% x(2)° 3-—-S5¥%* x(2) ¥* x(3)-—- 4¥* x(2)° 2+ 322, 
TT 2 (T3223 TU 2 (= 50% (2 2% -0% 3 再 
20 TI x= RT x EU 3)=2093] 
入 ) 7 

[x, Fval,exitflag]= fsolve (exam9 5,x0) s 用 fsolve 检验 
[xfl1,Fvall,exitflagl]=fsolve (exam9 5vXJ]) 

[xf2, Fval2,exitflag2]=fsolve (exam9 5vX2) 


将 以 上 脚本 文件 存 为 ex9 5.m。 在 MATLAB 命令 窗口 调用 ex9 5, 运 行 后 有 如 下 
结果 : 


>> eX9 5 
Xp=— 4.99999995086618 一 3.99999998647735 2.00000003022032， 
fp=1.0e— 004 * 

0.03601911487294 = 人 .22851512215823 0.00013103942820， 
k= 19。 


xpl=- 17.65903573508457 -10.39605561166747 15.20099744512923, 
fpl=1.0e+004 * 

-0.52312058969942 2.51552130383039 ”1.61081645954919, 
kl= 150。 
xp2=- 5.00000000114671 -4.00000000026104 1.99999999982930， 
fp2=1.0e- 006 * 


—0.05929427970841 0.513659301 15962 0.06296204446699, 
k2= 44。 
Optimization terminated: first- order optimality is less than options. TolFun. 
X= — 4.99999999999828 一 4.00000000000015 L109 
Fval=1.0e— 009 * 
—0.06514255801449 -0.77693584898952 —0.17013235265040，, 
exitflag= 1。 


Optimization terminated: first— order optimality is less than options. TolFun. 
xfl1=— 5.00000000000001 一 4.00000000000005 99999999999997 
Fvall=1.0e— 010 * 
=0.12335021892195 0.02387423592154 =0.01193 了 33711796077， 
exitflagl= 1。 
Optimization terminated: first-— order optimality is less than options.TolFun. 
xf2=— 5.00000000000000 -4.00000000000000 2.00000000000000, 
Fval2=1.0e— 012 * 
0.11368683772162 0 0, 
exitflag2= 1。 


我 们 用 了 3 个 初 值 进行 迭代 计算 ,并 用 MATLAB 的 fsolve 命令 检验 ,从 计算 结果 可 以 看 


出 ,尽管 初 值 x = 二 [ 一 1.4, 一 3.7,3.3|] 与 x 二 [一 1.5, 一 3.7,3.3]| 的 差别 很 小 ,但 是 用 DFP 方 
法 迭代 的 结果 相差 甚 远 ,多 次 实际 计算 表明 DFP 方法 的 稳定 性 较 差 。 
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Hi H;, J 


其 中 , AX'*) = x +l) — x*) a =F(x tT ) — F(zr™* ) 7 3 1 十 


迭代 终止 的 条 件 : norm(x**? 了 一 x* )<tal [或 


常用 数值 算法 及 其 MATLAB 实 现 


943 BEFS 方 法 


1. 功能 

求 方程 F(x) 二 0 在 x 附近 的 根 。 
2. 计算 方法 

BFS 方法 的 迭代 公式 为 


x‘*t = x*) H,F (x'* ) Ee 


Ax'*’ (Ax'™* )! = HAy™ (Ax'™*’ )! 2 Ax'® (Ay'” )'H, 


(Ax® )TAy® k=0,1,., 
(9.11) 


(Ay®™ 下 
(Ax®)TAy® ° 

具体 计算 步骤 . 

(1) 当 k 二 0 时 , 取 H 二 F(x”) (或 Ho 取 为 nn 阶 单位 矩阵 ) ,计算 F(x ), 求 得 Ax" 


及 x 二 x 中 十 Ax ;并 计算 FCxo),Ayw 及 HH， 


(2) 贡生 
(3) 检验 迭代 终止 条 件 是 否 满足 , 告 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 


k 十 1 k 
( ;— x‘*) 


CD ) <tol). 


norm(x 
norm(x 


3. 使 用 说 明 
nonlsbfs (fun,x0,tol,maxiter) 


fun 二 F(x)- 问 量 形式 ,需要 定义 为 从 号 明 数 ,Xx 初始 点 - 问 量 形式 ,tol 是 容 差 ,maxiter 


是 最 大 迭代 次 数 。 输 出 根 的 近似 值 xp,fp 为 F(x) 在 xp 处 的 值 和 实际 和 迭代 次 数 A。 


注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 
4. MATLAB 程序 


function [xp,fp,k]=nonlsbfs (fun,x0,tol,maxiter) 
var= findsym (fun); 
F= Jacobian (fun,var); % fun 的 Jacobi 和 矩阵 
fx0= subs (fun,var,x0); 
[ml,nl1]= size (fx0); [m2,n2]= size (x0); 
IE ml~=m2 
xX0= x0'; [m2,n2]= size (XUO) ， 
end 
if (ml ~=m2) | (nl ~=n2) 
error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin< 4 
maxiter= 1000; 
end 


if nargin<3 
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tolx= le— 6; 
end 
HO= subs (F, var, x0); 
HO= inv (HO) ; $ 经 过 多 例 实践 证 明 Ho 取 (F' (x0))^(-1) 效 果 较 好 , 阁 取 HO 为 单位 矩阵 ,效果 很 差 
if ml<nl 

fx0= fx0"; 

Xx0= x0"» s 统 一 转 为 列 向 量 
end 
for k=1:maxiter 

dx= — HO *X fx0;xl1= x0+ dx; 

err= norm (x1— x0)/ (norm (x1) + eps); 
if err<tol 

break 

end 

fxl= subs (fun,var,x1); 

if ml<nl 

fxl= fxl1"; 

end 

dy= fxl1— fx0; 

mu=1+ ((dy)' * HOX dy)/ (dx' * dy); 

Hl=H0O+ (mu* (dxx* dx')—dxx* (dy)'* HO- HOX dy * dx')/ (dx"' * dy); 

x0= xl1;HO= Hl; 

fx0= fxl1; 
end; 
XPp= x0'» 
fp= fx0 7 7 

—9r’z—8zyz 二 4x’ 一 4z* 一 1000zx 十 2508==0， 
例 9.6 求 方程 组 yx? yz 十 2x*z* 一 7zXy 十 4X 一 300y 一 5z 十 623= 二 0, 的 一 组 解 。 
27x*z :十 3Xyz 十 2Xz’ 十 9x 一 500z 十 1194==0 

解 ” 建 立 函 数 、 脚 本 文件 如 下 : 


function w= exa9 6 (XryrZ) 
syms xy 2Z; 
W= [2508— 9% x 3¥% 2z— 8¥ XE yy Zz 2+ 4% x 3 一 4XxX Z 2— 1000% x, x 2% y¥ ZzZ+2¥% X62 2 2— TX 


Y 3H4X Xx- 300% y-5¥% z+ 606023, ¥ x 2 z+ 3 XE Vy 2Z 212E XE ZI I x- S00% z+1194]; 
存 为 exa9 6. m。 


axam9 G=1nline( [00 9* ("3* O80 ™ (3) 24 (DD) AW) 2 I000* x 
(ly 2 ET ZW 2 RAR 0 0 (T0233 
六 人 人 (Io (1})= S00 OT194])s 

x0= [1,— 3,5]; 

x1= [3,2.71;6]; 

[xp, fp, kl]=nonlsbfs (exa9 6,x0,1e- 8,>0) 

[xpl1, fpl, kl1]=nonlsbfs (exa9 6,x]1,1e- 8,50) 
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[xf, Fval,exitflag]= fsolve (exam9 6,x0) 和 用 fsolve 检验 
[xfl1,Fvall,exitflagl]=fsolve (exam9 6,x1) 


将 以 上 脚本 文件 存 为 ex9_6. m。 在 MATLAB 命令 窗口 调用 ex9_6, 运 行 后 有 如 下 结果 : 


>>ex9 6 
Xxp= 1.99999999140018 2.00000000594695 3.00000000793171, 
fp=1.0e— 005 * 
0.90710493623192 —0.26856829435928 -0.34616568882484, 
k= 11。 
xpl= 2.00000000591583 1 .99999998265204 2.99999998925706, 
fpl=1.0e- 005 * 
—0.28084034511267 0.76230771810515 0.31033814593684, 
kl= 19。 
Optimization terminated: first-— order optimality is less than options. TolFun. 
X= 2.00000000000000 2.00000000000000 299999909999。 
Fval=1.0e— 011 * 
0.54569682106376 ” -0.17053025658242 0.38653524825349, 
exitflag= 1。 
Optimization terminated: first- order optimality is less than options.TolFun. 
Xl1= 2 2 
Fvall= 
0 0 0, 


exitflagl= 1。 


从 计算 结果 可 以 看 出 ,尽管 从 两 个 不 同 的 初 值 开始 迭代 ,BFS 方法 都 收敛 到 方程 组 的 
一 组 解 (2,2,3) ,但 与 fsolve 相 比 其 精度 稍 差 些 , 因 为 在 一 定 条 件 下 ,DFP 方法 和 BFS 方法 
都 是 超 线性 收敛 的 。 


95 效 值 延 拓 法 


前 面 所 述 的 求解 非 线 性 方程 组 的 迭代 法 ,基本 上 都 是 局 部 收敛 的 方法 , 即 只 有 初始 值 
x 充分 接近 解 x* 时 ,迭代 序列 才 收 钱 到 x* ,实际 计算 中 要 找到 满足 要 求 的 初始 值 x” 往往 
很 困难 。 延 拓 法 (continuation) 在 映射 满足 一 定 条 件 下 ,可 从 任 一 初始 值 x” 出 发 求 得 解 
x”。 延 拓 法 的 基本 思想 是 在 所 求解 的 方程 组 F(x) 二 0 中 进入 参数 7, 一般 取 1E[0,1], 构 造 
一 秘 映 射 H:DX[0,1]CR"XR' 一 R" 代替 映射 F ,使 H 满足 条 件 


H(x,0) = Fo(x), H(x,1l)= F(x), Vx €D, (9. 12) 

其 中 ,Fo (x) 二 0 的 解 x* 是 已 知 的 ,而 方程 H(x,1) 二 0 就 是 原来 的 非 线 性 方程 组 F(x) 二 0。 
如 果 方 程 

H(x,t) =0, :i € [0,1], (9. 13) 


有 人 解 x 二 x(1) ,x:[0,1] 一 R” 连续 依赖 于 1, 当 1 二 1 时 ,x(1) 二 x* , 即 为 方程 F(x) 二 0 的 解 。 
映射 H: DX[0,1]CR"T! 一 R" 称 为 同 伦 (homotopy) 了 映射。 延 拓 法 就 是 把 求 方程 F(x) 一 
0 的 问题 转化 为 求 同 伦 方程 (9. 13) 的 解 , 故 又 称 为 同 伦 法 。 因 为 延 拓 法 是 对 原 方程 瞬 入 参 
数 t 而 得 到 的 , 故 又 称 为 散 入 法 (embedding method)。 


第 9 章 非 线性 方程 组 的 数值 解法 


定理 9.1 设 映射 卫 : DCR"->~R" 在 D 上 连续 可 导 , 并 假设 存在 开 球 $=S(x',r)CD， 
使 对 YVES, 有 F(x) 7! 中 三 8 成 立 , 其 中 rr 宇 Be FCx") | , 则 方程 
F(x) = (1—D)F(x), 1 El[0,l|l,xES (9. 14) 
存在 唯一 解 x: [0,1] 一 SCR", 且 x(z) 连 续 可 导 并 满足 微分 方程 Cauchy 问题 : 


x (1) =— [F(xCG))| iF(x), ViE€ |o0,1]|, 
(9.15) 
| = xX。 
定理 9.1 表明 同 伦 方程 
H(x,t) = F(x) 二 +(t—1)F(x)=0 (9. 16) 


存在 唯一 解 x=x(i) , 且 x(i) 是 微分 方程 (9. 15) 的 解 ,因此 通过 求 微 分 方程 初 值 问题 (9. 15) 
的 数值 解 ,可 得 到 方程 F(x)==0 的 解 , 这 种 方法 称 为 参数 微分 法 。 
应 用 牛顿 法 求解 方程 (9.13), 可 导出 一 个 大 范围 收敛 的 牛顿 迭代 公 


We -一 x — F(x:)- [F(x*) (1 - 坟 jPce)]， k 一 中 SNV ls 
N (9.17) 


Es 有 一 和 NN 十 1 …， 

这 里 x 为 任 给 的 初 值 ,(9. 17) 的 第 二 式 就 是 解 方程 F(x) 二 0 的 牛顿 迭代 公式 ,第 一 式 是 通 
过 数值 延 拓 法 求 得 足够 好 的 初始 近似 值 xx ,使 牛顿 迭代 公式 产生 的 序列 收 钱 ,在 一 定 条 件 
下 它 具 有 平方 钙 速 。 

1. 功能 

求 方 程 F(x) 二 0 在 x? 附近 的 根 。 

2. 计算 方法 

(1) 先 利用 (9. 17) 的 第 一 式 计算 得 xx ,以 x* 为 初 值 代入 (9.17) 的 第 二 式 计 算 。 

(2) 检验 迭代 终止 条 件 是 否 满足 , 知 满足 , 则 求 得 方程 的 近似 解 并 退出 ,否则 继续 迭代 。 
迭代 终止 的 条 件 ;:norm(x 人 ?了 一 x 中 ) 过 tol( 或 norm(x 人 了 一 x 个 )/norm(x 人 ?过 tol)。 

3. 使 用 说 明 


[xp, fp, Kk]= continu (fun,x0,N,tolx,maxiter) 


fun 一 F(x)- 癌 量 形式 ,需要 定义 为 符号 隐 数 ,x” 初 始点- 回 量 形式 ,tolx 是 容 差 ， 
maxiter 是 最 大 迭代 次 数 。 输 出 根 的 近似 值 xp,F(x) 在 xp 处 的 值 fp 和 实际 迭代 次 数 
numlter。 

注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 

4. MATLAB 程序 


function [xp,fp,k]= continu (fun,x0,N,tolx,maxiter) 
[ml,nl|]= size (fun); [m2,n2]= size (x0); 
if ml~=m2 
x0= x0"; 
[m2,n2]= size (x0);} 
end 
if (ml ~=m2) | (nl ~=n2) 
error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 


end 
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if nargqin< 5 
maxiter= 1000; 
end 
if nargin< 4 
tolx= le— 8; 
end 
if nargin<3 
N= 60; 
end 
var= findsym (fun); 
F= Jacobian (fun,var); % fun 的 Jacobi 和 矩阵 
f0= subs (fun,var,x0) ;fxN= £f0; 
for j=1:N 
bN= fxN- (1- (j-1)/N) * £0; 
JF= subs (F,var, x0); 
dxN= Gausselimpiv (JF,— bN); s 用 Gauss 列 主 元 法 解 方程 组 
xN= x0+ dxN; 
fxN= subs (fun,var, xN) ;x0= xN; 
end 
for k=1:maxiter 
JF= subs (F, var, x0); 
fx0= subs (fun,var,x0); 
dx= Gausselimpiv (JF,— fx0); s 用 Gauss 列 主 元 法 解 方 程 组 
xl1= x0+ dx; 
err= norm(xl1— x0) / (norm (x1) + eps); 
if err<tolx 
break 
end 
Xx0= xl1; 
end; 
Xp= x1; 
fp= subs (fun, var, xp); 


6z 十 7yz 十 3zx 十 7y 一 87z 一 231 二 0， 

例 9.7 求 方程 组 ;9 只 一 2zyz 一 7z2y 一 3zy 十 3Xz 一 432 二 0, 的 一 组 解 。 
8zsz 十 4 内 xz 一 4zZ2 yy 一 4 兴 十 4 十 8z yy 一 0 

解 ” 利用 MATLAB 程序 求解 ,建立 函数 、 脚 本 文件 如 下 : 


function w= exa9 17(x,y,2) 


syms xy 2Z; 
W= [6¥ Z 2+ 717¥% y¥ z+ 3% x 2+ TAX YY 2- BE x-231,9% vy 2 DH XR yy Zz- X62E y— 3 Xx yy 2+ 
3 关 Xx 2Z— 432,8xX* x 3 Zz+ 4 y 3x Z 一 4 关 X 3 y- 4x* y’ 4+ 4x 2z^3+8x x 2 y]; 


存 为 exa9 7. m。 


[xp0, fp0, k0]= continu (exa9 7,{[- 3,8,12],80,1e- 8, 20) 
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[xpl, fpl, kl1]= continu (exa9 7,{- 3,8,12],30,1e- 8,50) 
[xp2, fp2, k2]= continu (exa9 7, [30,8,- 70],6€0,1e- 8,50) 
examp9 7=inline('[6x* x(3) 2+7x x(2) * x(3)+3x* x(1) 2+7x x(2) 2- 8x* x(1)—- 231,9x* x(2) 2- 
2¥% XxX(1) (2) 3) 1 x(1) 2 x(2)— 3* x(1)})* x(2}) 2 3 x(1) * (3)— 432,8¥%* x(1)}) 3¥ x(3)+4 
xXx(2)^3x*x x(3)— 4x*x x(1)^3x*x x(2)—- 4x* x(2)^4+4x¥*x x(3)^3+8x*x x(1)^2x* x(2)]"); 

s 用 inline 困 数 建立 方程 组 ,以 便 用 fsolve 验证 。 
options= optimset ('Display', 'off"'); 
[xf0, Fval0,exitflag0]= fsolve (examp9 7,{[- 3,8,12],options) 6 用 fsolve 检验 
[xfl1,Fvall,exitflagl]= fsolve (examp9 1/ [30,8,- 70],options) 


将 以 上 脚本 文件 存 为 ex9_7. m。 在 MATLAB 命令 窗口 调用 ex9_7, 运 行 后 有 如 下 


>>ex9 1 
xp0=—3 一 3 一 3， 
fp0= 0 0 0, 
koO= 4。 
xpl= 2.69117208502371 — 3.96421150851224 7.36026285759382， 
fpl=1.0e- 013 * 

0.28421709430404 0 -0.28421709430404, 
kl= 11。 
xp2= 10.12875085268047 —0.62845242614520 —0.25212716596276, 
fp2=1.0e— 012 * 

0.05684341886081 0.05684341886081 0.45474735088646, 
k2= 7。 
xf0=— 1.21386901563274 4.54449730375398 3.82073443356825, 
Eval0=1.0e+ 002 * 

1.36829867286292 -1.89553314712601 二 20993776956， 


exitflag0=— 2。 
xfl=—3.00000000000000 -3.00000000000000 -3.00000000000000，, 
Fvall=1.0e— 012 * 

0.02842170943040 0 0.17053025658242， 
exitflagl= 1。 


从 上 述 检 验 结果 可 见 , 用 continu 迭代 都 收敛 到 方程 组 的 一 组 解 , 而 且 对 初 值 的 要 求 比 
较 宽 松 ,但 是 数值 延 拓 法 求 初始 近似 值 x” 的 正 整 数 N ,对 最 后 求 得 的 解 有 直接 影响 。 而 对 
初 值 | 一 3,8,12 |,fsolve 发 散 。 


96 参数 微分 法 


1. 功能 

求 方程 F(x) 二 0 在 xo。 附近 的 根 。 

2. 计算 方法 

用 4 阶 Runge-Kutta 公式 求解 微分 方程 (9.15) 。 具 体 计算 步骤 . 


264 


常用 数值 算法 及 其 MATLAB 实 现 


(1) 令 h= 言 ,b= 一 hF(x) (x=x 初 值 )， 


(2) 对 7 二 1,2,… ,NN, 执 行 (i) 一 (Vv)， 
(iD 令 4=JCxr)CGFCr) 的 Jacobi 和 矩阵 ), 解 线性 方程 组 Aki 二 bb; 


(ii) 令 4 一 [x 去 | , 解 线 性 方程 组 Ak, 二 b; 


(iii) 令 4 一 [ zx 十 去 ], 解 线性 方程 组 Ak, =b; 
(iv) 令 A 二 J(x 十 ks), 解 线性 方程 组 Ak, 二 b; 
(v) 令 x=x 十 二 (hk + 2k 2ks 十 大 ). 


(3) 输出 x 一 (xl ,xs ，*…… ,XxX,)。 
3. 使 用 说 明 


[xpvfp,k]=Paramdif (fun, x0,N) 


fun 一 下 (xz) -向量 形式 ,需要 定义 为 符号 图 数 ,* ”初始 点 -向 量 形式 ,N 是 迭代 公式 中 的 


正 整 数 。 输出 根 的 近似 值 xp,fp 为 F(x) 在 xp 处 的 值 和 实际 迭代 次 数 numiter。 


注 : 由 fp 是 否 等 于 0 或 接近 于 0 可 以 判断 求 得 的 xp 是 否 为 方程 组 的 (近似 ) 解 。 
4. MATLAB 程序 


function [xp,fp,k]=paramdif (fun,x0,N) 
[ml,nll]= size (fun); [m2,n2]= size (x0); 
if ml~=m2 
XxX0= x0"'; [m2,n2]= size (x0);} 
end 
if (ml ~=m2) | (nl ~=n2) 
error(' 输 入 的 方程 组 个 数 与 向 量 维 数 不 匹 配 '); 
end 
if nargin<3 
N= 30; 
end 
var= findsym (fun); 
F= Jacobian (fun,var); s fun 的 Jacobi 和 矩 [ 阵 
h=1/N;b=— hx subs (fun,var,x0); 
xl1= x0; 
for j=1:N 
JF= subs (F, var, x1); 
kl= Gausselimpiv (JF,b); s 用 Gauss 列 主 元 法 解 方 程 组 
JE= subs (F, var, xl1+ kl1/2); 
k2= Gausselimpiv (JF',b); 
JF= subs (F, var, xl1+ k2/2); 
k3= Gausselimpiv (JF',b); 
JF= subs (F,var,xlt+ k3); 


k4= Gausselimpiv (JF', b); 
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xl=xl1+ (kl+2x* k2+ 2x* k3+ k4) /6; 
end 
xp= x1; 
fp= subs (fun, var, xp); 
|3z 一 cos(zy) 一 0. Dei) 
Eh Bg 
例 9.8 求 方程 组 1* 81(y 十 0.1)“ 十 sin(z) 十 1.06 二 0， 
ec” 十 20z 十 -一 1 一 0 


解 ”利用 MATLAB 程序 求解 ,建立 图 数 、 脚 本 文件 如 下 : 


的 一 组 解 。 


function w 一 exa9 8 (XryrZ) 


Syms XYZ; 
W= [3* X- cos (xx* y)—0.5,x 2— 81* (y+0.1)^2+sin(z)+1.06,exp(-xx* y)+20x* z+ (10* pi— 3)/3]; 


存 为 exa9 8. m。 


x0= [0,0,0];xl1= [2,— 0.3,0]; 

[xp0, fp0]=paramdif (exa9 8,x0,20) 

[xpl, fpl]=paramdif (exa9 8,x]1,30) 

exam9 8=inline("[3* x(1)— cos(x(1) * x(2))—-0.5,x(1) 2- 81¥* (x(2)+0.1)°2+sin(x(3))+ 1.06,exp 


(x(1) *x x(2))+20x* x(3)+ (10* pi-3)/3]9 s 用 inline 图 数 建立 方程 组 ,以 便 用 fsolve 验证 
options= optimset ('Display', 'off"'); 
[xf0, Fval0,exitflag0]=fsolve (exam9 8,x0,options) 用 fsolve 检验 


[xfl1,Fvall,exitflagl]=fsolve (exam9 8,x]1,options) 


将 以 上 脚本 文件 存 为 ex9_8. m。 在 MATLAB 命令 窗口 调用 ex9_8, 运 行 后 有 如 下 


>>ex9 8 
Xp0= 0.49999999999334 0.00000000001596 020203059077559890, 
fp0=1.0e—- 009 * 

—0.01997157994538 -0.2658002 7068235 一 0.01993605280859。 
xpl= 0.49835197]101312 —0.19961855130435 —0.52882861102824, 
fpl=1.0e- 007 * 

—0.01443218322628 0.58215889886526 -0.00292779134270。 
xf0= 0.50000000000885 0.00000000106413 =0.323590171715571042, 
Fval0=1.0e— 007 * 

0.00026543656162 -0.17205853630742 0.00025568880346, 
exitflag0= 1,。 
xfl1= 0.49835197143021 =0:19961855509551 -0.52882861112232，, 
Fvall=1.0e— 008 * 

0.00039764858073 -0.26320203794228 0.00045670134341， 


exitflagl= 1。 


通过 多 次 实验 发 现 , 好 的 初 值 是 很 关键 的 ,如 果 它 比较 接近 解 ,就 易 求 得 精度 高 的 近似 
解 ,否则 就 无 法 求 得 近似 解 。N 的 大 小 好 像 没 什么 规律 。 


和 微分 方程 急 值 问题 的 数 但 解法 


ZS 


党 微分 方程 求解 问题 是 日 然 科学 和 工程 技术 领域 中 常见 的 数学 模型 。 由 于 它们 通常 没 
有 解析 解 , 因 而 需要 求 其 数值 近似 解 。 本 章 主 要 介绍 一 阶 常 微分 方程 初 值 问题 


SY 一 f(x,y), eg (10.1) 
y(a) 一 yo (10. 2) 


的 数值 解法 。 

求 初 值 问 题 (10. 1)、(10.2) 的 解 的 一 类 数值 方法 是 离散 变量 法 : 求 初 值 问题 的 解析 解 
y 一 y(z) 在 一 系列 离散 节点 (通常 取 为 等 距 的 ): zi ,zs，… ,zw 处 的 近似 值 y1 ,ys，*… ,yn。 
以 下 记 初 值 问题 (10. 1)、(10. 2) 的 精确 解 y 王 >y(CZz) 在 zx 点 处 的 值 为 y (zi) ,而 在 某 一 数值 
方法 中 y(zi) 的 近似 值 为 w% ,并 记 fi 二 f(zi ,ys)。 离 散 化 初 值 问题 (10.1)、(10.2) 的 方法 
通常 有 : 以 差 商 代替 导数 的 方法 、Taylor 级 数 法 和 数值 积分 法 。 

如 果 确 定 序 列 {y,}) 的 计算 方法 是 由 yw4j ,fw+j(j 二 0,1,… ,kk) 的 线性 关系 组 成 , 即 


Vntk 一 3 十 hh 2 Bf 9 (10. 3 ) 
则 称 此 方法 为 k 步 的 线性 多 步 法 ,其 中 Qo ,hh 不 全 为 0,h 一 “< 为 步 长 。 如 果 已 知 Vn Vnt+1 """， 
ys+4-1 的 值 ,就 可 通过 (10.3) 式 计算 y,+:。 特 别 地 ,k= 二 1 时 , 称 为 线性 单 步 法 ,其 一 般 形 式 为 
Yntl = Yn hD (Tx, Yn Yntl hh). (10. 4) 
在 单 步 法 中 , 初 值 问题 的 初始 条 件 w 的 值 可 用 (10. 4) 式 逐步 计算 出 wm ,ys，…。 
在 (10.3) 式 中 , 铬 及 冯 0,; 则 称 此 方法 为 隐 式 的 线性 多 步 法 ,否则 (B= 二 0) 称 为 显 式 的 线性 多 步 
法 。 在 (10.3) 式 中 ,各 图 数 @ 不 显 含 y+41; 则 称 此 方法 为 显 式 的 单 步 法 ,否则 称 为 隐 式 的 单 步 法 。 


101 Buler 方法 


1Q.1.1 Euer 方 法 


Euler 方 法 是 求解 初 值 问 题 (10. 1) (10. 2) 的 一 种 显 式 单 步 法 , 即 
Vnt+l = yn 二 hf (ras Yr), n= 0,1,°"°, (10.5) 
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1. 功能 

求解 初 值 问 题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 

按 公 式 (10. 5) 计 算 。 

3. 使 用 说 明 

eulerdif (fun,a,b,y0,nh) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 限 数 f(xX,y),ab 为 日 变量 的 左右 端点 ,yo 为 初 
始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function E=eulerdif (fun,a,b,y0,h) 
n= (b- a) /h; 

T= zeros(l,n+ 1);Y= Zeros (1,n+1) ， 
T=a:h:b;Y (1)= y0; 

for i=1:n 


Y(I+1)=Y(I)+hx feval (fun,T(i),Y (i)); 


end 
E= [T",Y"]; 
下 2 SR. PE 
例 10.1 求解 初 值 问 题 / dz , 取 步 长 /一 0. 1。 


解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 1=dsolve('Dy=-3x*xx*y','y(0)=1','x'); s 用 dsolve 求 得 解析 解 
examl10 1=inline('~-3xxxy'); s 建 立 微分 方程 右 端的 函数 E(xvy) 
E=eulerdif (examl0 1,0,2,1,0.1) 

ezplot (exal0 1,[0,2]) s 画 解析 解 的 图 像 

hold on 

plot (E(:,1) ',E(:,2)','r:") s 画 数值 解 的 图 像 
legend (' 解 析 解 ',' 数 值 解 ') 

hold off 

figure 

exampl0 l=inline(vectorize('—-3x*x xx* y','x','y'); 

direction field (examp10 1,0,2,0,2) 男方 程 的 向 量 场 

hold on 

ezplot (exal0 1, [0,2]) s 画 解析 解 的 图 像 

hold off 


存 为 ex10_1. m。 在 MATLAB 命令 窗口 调用 exl0 1, 执行 后 屏幕 显示 如 下 结果 ( 见 
图 10. 1 、 图 10. 2) : 

>>ex10 1 

exal0 1=exp(- 3/2x* x”’2) 

E= 0 1.00000000000000 
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expl-32 x 


0 02 04 06 0.8 1 12 1.4 1.6 1.8 2 
x 


例 10. 1 的 数值 解 与 解析 解 比较 


图 10.1 


expl-3i2 x 


0.10000000000000 
0.20000000000000 
0.30000000000000 
0.40000000000000 
0.50000000000000 
0.60000000000000 
0.70000000000000 
0.80000000000000 
0.90000000000000 
1.00000000000000 
1.10000000000000 
1.20000000000000 
1.30000000000000 


10.2 例 10.1 的 微分 方程 的 向 量 场 与 特 解 


1.00000000000000 
0.97000000000000 
0.91180000000000 
0.82973800000000 
0.73016944000000 
0.62064402400000 
0.50892809968000 
0.40205319874720 
0.30556043104787 
0.22305911466495 
0.15614138026546 
0.10461472477786 
0.06695342385783 
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1.40000000000000 0.04084158855328 
1.50000000000000 0.02368812136090 
1.60000000000000 0.01302846674850 
1.70000000000000 0.00677480270922 
1.80000000000000 0.00331965332 152 
1.90000000000000 0.00152704053066 
2.00000000000000 0.00065662742818 


此 处 用 到 夯 微 分 方程 向 量 场 的 程序 direction_field, 其 源 代 人 码 如 下 : 


function[ ]=direction field(f,a,b,c,dqd) 

s 画 出 一 阶 微分 方程 y'=f (zx,y) 的 癌 量 场 ,a<=x<=b,c<=y<=d. 

s 例 如 ,要 画 出 微分 方程 y'=y(4- y) (y- 1) 的 向 量 场 ,用 内 联 函 数 inline 建立 微分 方程 的 右 端 
$6 半数 : f=inline (vectorize('y* (4--Y) 关 (y—1)'),'x'", 'y') ,然后 执行 本 程序 direction field(f, 
i I Ee WD 

[xyyl=meshgrid(a:0.2:b,c:0.2:0); 

S=f (x,y); 

K= inline (vectorize('l/sqrt (ll+Sx* S)"'),'S"'); 

I=K(S); 

quiver (x,y,L,S. * L,0.95) 

axis equal tight 


10.1.2 改进 的 Euler 方法 


1. 功能 

求解 初 值 问题 (10. 1)、(10.2) 的 数值 解 。 

2. 计算 方法 

改进 的 Euler 方法 是 一 种 显 式 单 步 法 ,计算 公式 为 


Vantl = y+ [fry) + fr 9 Vn 二 hf (x, sy,.)) |]， n= 0,],°*, (10.6) 


Nr ob CU WE CW ME 9 ob ， 一 十 地 (KK +K,). 
3. 使 用 说 明 


impeuler (fun, x0, xn, y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 (xsy) »To0» Tn 为 日 变量 的 左右 端点 ， yo 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S= impeuler (fun,x0,xn,y0,h) 
n= (xn- x0) /h; 

T= Zeros(l,n+ 1);Y= zeros(l,n+ 1); 
T(1)=x0;Y (1)=y0; 


for i=1:n 
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tl=y0+h*x feval (fun,x0,y0); 

x0=x0+ h;:T(i+1)=x0; 

t2=y0+hx* feval (fun,x0,t1); 

y0= (tl+t2) /2;Y (i+1)=y0; 
end 


S= [P's 


dy 
CC Ce 
例 10. 2 求解 初 值 问 题 Ep ycos(z) 0 7 了 


Vy(0) 一 1。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 2=dsolve('Dy=y* cos(x)"','y(0)=1"','x") 用 dsolve 求 得 解析 解 
examl0 2=inline('cos (x) * y'); 建立 微分 方程 右 端 的 函数 f(x,y) 
E= impeuler (exam10 2,0,3,1,0.2) s 用 改进 的 Euler 公式 求解 
ezplot (exal0 2, [0,3]) s 画 解析 解 的 图 像 

hold on 

plot (E(:,1) ',E(:,2)', rz:0) s 画 数值 解 的 图 像 
legend (' 解 析 解 ',' 数 值 解 ') 

hold off 

figure 

exampl10 2= inline (vectorize("cos (X) * y'),'x','y'); 

direction field (examp10 2,0,3,0,3) s 画 方程 的 向 量 场 

hold on 

ezplot (exal0 2, [0,3]) s 画 解析 解 的 图 像 

hold off 


存 为 ex10_2. m。 在 MATLAB 命令 窗口 调用 ex10_2, 执 行 后 屏幕 显示 如 下 结果 ( 见 
图 10. 3、 图 10. 4): 


explsinty)) 


10.3 方程 的 数值 解 与 解析 解 比 较 


>>ex10 2 


exal0 2= exp (sin (x)) 


E= 


0.20000000000000 
0.40000000000000 
0.60000000000000 
0.80000000000000 
1.00000000000000 
1.20000000000000 
1.40000000000000 
1.60000000000000 
1.80000000000000 
2.00000000000000 
2.20000000000000 
2.40000000000000 
2.60000000000000 
2.80000000000000 
3.00000000000000 


0 
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10.4 方程 的 向 量 场 与 特 解 
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explsin()) 


:i yr 
A 


1.5 


一 一 > 同 量 场 
一 一 特 解 


1.00000000000000 


1 .21760798934095 
.41710 71322270300 
1 .75034704794962 
2.03688685814278 
2.30418659650926 
Zl1198011659312 
2:.65851395913120 
2.69567334563101 
2.62691351748507 
2.46287878076206 
2.22715094900025 
1].95149802561336 
1 .66503575844353 
1] .39236365026337 
1] .14930482252019 


10P Runge-Kutta 方法 


R 级 的 显 式 Runge-Kutta 方法 的 一 般 形 式 为 


其 中 ， 


2 
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\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
、 


及 
ya 一 内 十 彤 >，c 开 ，， 1 一 0,]，……， 


六 一 1 


Ki FA se 


# 一 1 
| 壹 f(z, 十 ah ,y, +h2 bsK,), r 二 2,3,. ,人 上 人。 
5 一 1 


(10.7) 


(10.8) 


2 
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如 果 和 希望 得 到 尺 级 的 Runge-Kutta 方法 是 R 阶 的 , 则 要 确定 系数 c,,a, 和 6, ,使 方法 的 
局 部 截断 误差 T,+1 二 OC(h*™ )。 


102.1 二 阶 Runge-Kuta 方法 
要 想 使 二 级 的 Runge-Kutta 方法 是 二 阶 的 , 则 系数 c, ,a, 和 5;, 需 满足 


C1 十 cy = 1 

CQ2C2 一 1 

Ce (10. 9) 
[oncs 一 去。 


这 是 四 个 未 知 数 三 个 方程 的 方程 组 ,可 以 得 到 多 组 不 同 的 解 。 将 其 代 回 (10.7),(10. 8), 就 
可 得 到 不 同 的 二 阶 Runge-Kutta 方法 。 
二 阶 Runge-Kutta 方法 中 常用 的 有 改进 的 Euler 方法 .中 点 方法 和 Heun 方法 。 在 (10. 9) 式 


中 , 令 ci 一 二 ,ce 一 二 ,az 一 二, 代 回 (10. 7) 式 和 (10. 8) 式 ,就 得 到 Heun 方法 : 


;3 yr 十 计 [f ens) +3/(z + hsy, | - n=0,] ,°°**。 


(10. 10) 
1. 功能 

求解 初 值 问题 (10. 1)、(10.2) 的 数值 解 。 

2. 计算 方法 


Kl=f(r, Ys Ks=f [zrt 儿 hy 二名 hK |， Van 十 1 =y,+ (Ki+3K,). 
3. 使 用 说 明 


heunsec (fun, x0, xn, y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(z,y) ,zo ,ZX 为 日 变量 的 左右 端点 ,yo 为 初 
始 值 ,六 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=heunsec (fun,x0,xn,y0,h) 
s 二 阶 Heun 方法 求 一 阶 微分 方程 y'=f(x,y) 的 解 
n= (xn— x0) /h; 
T= Zeros (1l,nt+ 1); 
Y= Zeros (1,n+ 1); 
T(1)=x0; 
Y(1)=y0; 
for i=1:n 
kl= feval (fun,x0,y0); 
TT)= T(t hs 
k2= feval (fun,x0+2x* h/3,y0+ 2* hx k1/3); 
x0= x0+ h; 
yO0=y0+h¥* (kl+ 3¥* k2)/4; 
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Y(i+1)=y0; 
end 


S= [IT Ys 


二 sin(Xy) ,一 1 二 


dy ls 
例 10.3 求 初 值 问 题 /dz 的 解 , 取 步 长 /一 0. 2。 


y(—1)=0.5 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 
exal0 3=@ (x,y)sin(x* y); $$ 建立 微分 方程 右 端 的 函数 f(x,y) 


[tl,yl]= ode23 (exal0 3,[-1:0.2:1],0.>); 
名 用 dsolve 无 法 求 得 解析 解 ,用 MATLAB 的 ode23 求 数值 解 
E= heunsec (exal0 3,-1,1,0.5,0.2) 


plot (E(:,1) ',E(:,2)','r') s 画 heunsec 的 数值 解 图 形 
hold on 

plot (tl,yl, "bx — ."') s 画 ode23 的 数值 解 图 形 
legend(' 二 阶 Heun 方法 求 得 的 解 ', 'ode23 求 的 解 ') 

hold off 


存 为 ex10_3. m。 在 MATLAB 命令 窗口 调用 ex10_3, 执 行 后 屏幕 显示 如 下 结果 ( 见 
图 10. 5): 


一 一 一 二 阶 Heun 方 法 求 得 的 解 
一 二 -ode23 求 的 解 


-1 -0.8 -06 -0.4 -0.2 0 02 04 06 0.8 1 


10.5 两 种 数值 解 的 比较 


>>ex10 3 
E= -1.00000000000000 0.50000000000000 
-0.80000000000000 0.42067869696603 
-0.60000000000000 0.36689709551750 
-0.40000000000000 0.33243193854503 
-0.20000000000000 0.31322747598921 

0 0.30704865743439 
0.20000000000000 0.31318791527777 
0.40000000000000 0.33236369196506 
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0.60000000000000 0.36683203212064 
0.80000000000000 0.42069259043309 
1.00000000000000 0.50024486639020 


1022 三 阶 Runge-Kuta 方法 
常用 的 三 阶 显 式 Runge-Kutta 方法 有 Heun 三 阶 方法 和 Kutta 三 阶 方法 。 在 方程 组 


1 本 ] -A _. 
(10. 9) 中 , 今 Ci = 0c 42 ba 二 30a 一 0,4s 一 bs 一， 得 到 Heun 三 阶 方法 。 


[Ki —— fx, » Yn), 


hh 
K, = f(z+ 3 0 2 ]， 
(10.11) 
Ks = /f(z ty + RK); 


WeH 一 多 十 公 (K + 3K,). 


Kutta 三 阶 方法 为 
六 一 FF yn) ， 
| = /二 十 二 ,十 全 K ]， 


(10. 12 ) 
Ks = 1z 十 几 ,y — hKi 2hK,;,), 


oe 一 办 十 站 (Ki 十 4Ks + Ks). 


1. 功能 

求解 初 值 问题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 

用 (10. 12) 式 计算 。 

3. 使 用 说 明 


kutta3 (fun, x0, xn,y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端的 图 数 f(x,y) ,Xo,X, 为 日 变量 的 左右 端 点 ,yo 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S= kutta3 (fun,x0,xn,y0,h) 

n= (xn— x0) /h; 

T= zeros (1,n+ 1); 

Y= zeros (1l,nt+ 1); 

T(1)=x0;Y (1)= y0; 

for i=1:n 
kl= feval (fun,x0,y0); 
T(i+1)=T(1)+ix h; 
k2= feval (fun,x0+h/2,y0+t+h* k1/2); 
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k3= feval (fun,x0+h,y0—- hx kl+2x* hx k2); 
x0= x0+ h; 
yO0=y0+ hx (kl+ 4x* k2+ k3) /6; 
Y(i+1)=y0; 
end 


S= [T',Y']; 


例 10.4 求 初 值 问题 空 一 一 zy ,0<xz<2,y(0) 一 1。 


解 ”用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 4=@ (x,y)-—-x* y’2; s 建 立 微 分 方程 右 端的 函数 f(zx,y) 
examl0 4=dsolve('Dy=-xx* Yy^2'7Y(0)=17" XI) 用 dsolve 求 得 解析 解 
E= kutta3 (exal0 4,0,2,1,0.2) 

ezplot (exam10 4, [0,2]) s 画 解析 解 的 图 像 

hold on 

plot (E(:,1)',E(:,2)','r*—.') s 画 数值 解 的 图 像 
legend(' 解 析 解 …，' 数 值 解 ') 

hold off 

figure 

exarmp10 4=inline(vectorize('—-x¥* y’2'),'x','y'); 

direction field (examp10 4,0,2,0,1) 男方 程 的 问 量 场 

hold on 

ezplot (exam10 4, [0,2]) s 画 解析 解 的 图 像 
legend(' 回 量 场 …，' 特 解 ') 

hold off 


存 为 ex10_4. m。 在 MATLAB 命令 窗口 调用 ex10_4, 执 行 后 屏幕 显示 如 下 结果 ( 见 
图 10.6、 图 10. 7): 


2/(x2+2) 


10.6 两 种 解 的 比较 


276 常用 数值 算法 及 其 MATLAB 实 现 


27fX<+2] 


0 02 04 06 08 1 12 14 16 18 2 
一 一 > 同 量 场 
一 一 特 解 


10.7 方程 的 向 量 场 与 特 解 


>>ex10 4 
examl0 4=2/ (X^2+ 2) 
E= 0 1.00000000000000 


0.20000000000000 0.98052266666667 
0.40000000000000 0.92615469409513 
0.60000000000000 0.8477242837171259 
0.80000000000000 0.75782055672287 
1.00000000000000 0.66685214739010 
1.20000000000000 0.58151073381521 
1.40000000000000 0.50510351310056 
1.60000000000000 0.43860261802129 
1.80000000000000 0.38165451452368 
2.00000000000000 0.33329037855578 


1023 四 阶 Runge-Kuta 方法 


常用 的 四 阶 显 式 Runge-Kutta 方法 有 经 典 Runge-Kutta 方法 和 Gill 方法 。 经 典 
Runge-Kutta 方法 : 
Ki = f(r, ss 


/ h 
天， = /六 十 到 ,加 十 全 K ]， 
h h 
kK; = f(s 二 各,yr 十 多 Ks ]， (10. 13) 
K, = f(x, th,y, thK;,), 


i = 二 (Ki +2K;, +2K; + K,). 
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Gill 方法 : 
Ki = f(x,, Yn), 
K, = [> i 
A 7 ?Yn » Ki | 
_ ff, hh, | 1 有 
fs.+ 2 2 ha + 人 1 2 js] (10. 14) 
K, /a 十 hh ,yn — hk, 十 ( 十 jr |. 
yw 一 y+ 名 (Ki + (2—/DK 十 (2 十 VD 天; + K). 
1. 功能 
求解 初 值 问 题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 
用 (10. 13) 式 计算 。 
3. 使 用 说 明 
rungek4 (fun,x0, xn,y0,nh) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y) ,zo ,XxX, 为 日 变量 的 左右 端点 ,yo 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S= rungek4 (fun,x0,xn,y0,h) 

n= (xn 一 x0) /h; 

T= zeros (1,nt+ 1); 

Y= Zeros (1l,n+ 1); 

T(1)=x0; 

Y(1)=y0; 

for i=1:n 
kl= feval (fun,x0,y0); 
T(i+1)=T(1)+ix h; 
k2= feval (fun,x0+h/2,y0+h* k1/2); 
k3= feval (fun,x0+h/2,y0+h*x k2/2); 
k4= feval (fun,x0+h,y0+h*x k3); 
x0= x0+ h; 
yO0=y0+hx (kl+2x k2+ 2* k3+ k4) /6; 
Y(i+1)=y0; 

end 

= Ls 


dy 2(9x’ 一 Zz 十 9) 
经 i 方法 ,求解 i 49T TT) 
例 10.5 用 经 由 Runge-Kutta 7 法 ,求解 初 值 问题 二 CT 二 7293 


1,y(0) 二 3, 分 别 取 步 长 hh 二 0.2,0.1 和 0.05, 并 与 精确 解 对 比 。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 5=@ (x,y) 2 关 (9+9x x’2-x)/(l+x’^2)^2-18x y; 建立 微分 方程 右 端 的 函数 f(x,y); 
examl0 5=dsolve('Dy=2* (9+9* x’2—x)/(1lt+x’2)^2-18* y','y(0)=3", "x") 


18y， 0 二 XTX 碾 
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用 dsolve 求 得 解析 解 
EO0= rungek4 (exal0 5,0,1,3,0.2) 代入 程序 rungek4 求解 
El= rungek4 (exal0 >,0,1,3,0.1) 
E2= rungek4 (exal0 ,0,1,3,0.05) 
example1l0 5=inline (exam10 5); 名 用 inline 函数 重新 建立 解析 解 函 数 ,以 方便 后 面 的 作 图 和 求 值 


xx= [0: 0.05: 1]; 节点 

yy= feval (examplel0 5,xx) s 解 析 解 在 节点 处 的 函数 值 
ezplot (example10 5, [0,1,0,3]) s 画 解析 解 的 图 像 

hold on 

plot (El1(:,1)",El(:,2)"','r* :') s 画 数值 解 的 图 像 


plot (E22(ssl1) E22(s72}) OO ) 
legend (' 解 析 解 ',' 数 值 解 , 步 长 =0.1',' 数 值 解 , 步 长 =0.05") 


hold off 


存 为 ex10 5.m。 在 MATLAB 命令 窗口 调用 ex10 5, 将 执行 结果 ( 见 图 10. 8) 列 
人 表 10. 1( 解 析 解 为 exam10 5 一 2 x exp( 一 18x* i 


2 exp(-18 x)+1/(1 +x2) 


, 步 长 =0.1 
s 步 长 =0.05 


0 0.1 02 03 04 05 06 07 08 0.9 1 


10.8 方程 的 解析 解 与 不 同步 长 的 数值 解 比较 


现 将 用 不 同步 长 求 得 的 方程 的 数值 解 和 解析 解 在 相应 节点 处 的 值 ,及 数值 解 的 相对 误 
差 列表 如 下 : 


表 10.1 方程 的 解析 解 与 不 同步 长 的 数值 解 比较 


: 误差 0.1 误差 ~ 0.05 误差 解析 解 
0. 一 多) 一 yzi) 一 yzi) VCZi) 


3 
1.819143626 | 0.00849807 | 1.810645554 
1.559700931 | 0.23900414 | 1.327621998 | 0.00692521 | 1.320696786 
1.116627914 | 0.00422178 | 1.112406136 
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续 表 

; 0. ge —y(zxi) 一 yzi) 一 (zz) y(xi) 
0.20 7.128474705| 6.11228880 | 1.123020933 | 0.10683503 | 1.018462759 | 0.00227685 | 1.016185906 
0. 25 .964535559 | 0.00114110 | 0.963394464 
0. 0. 9626584670 | 0.03619412 | 0. 927004585 | 0.00054023 | 0.926464355 
0. .894782672 | 0.00024147 | 0.894541206 
0. 19. 96828138 19. 1047192 | 0.874390925 | 0.01082879 | 0.863662347 | 0.00010021 | 0.863562137 
0. .832244974 | 0.00003706 | 0.8322079099 
0. 0. 803202180 | 0.00295536 | 0.800258037 | 0.00001122 | 0.800246817 
0. .767857202 | 0.00000253 | 0.767854668 
0. 60. 00162691 59.2662920 | 0.736124263 | 0.00078935 | 0.735336274 | 0.00000136 | 0.735334917 
0. .703007448 | 0.00000316 . 703004285 
0. 0.671467026 | 0.00031934 | 0.671153563 | 0.00000588 | 0.671147684 
0. .640011340 | 0.00000860 . 6400027420 
0. 184. 4811525 183. 871395 0. 610053013 | 0.00029580 | 0.609768161 | 0.00001095 | 0.609757212 
0. .580564791 | 0.00001281 | 0.580551977 
0. 0. 552840336 | 0.00035396 | 0. 552500560 | 0. 00001419 .552486372 
0. .59525039370 | 0.00001512 | 0.525624254 
I 570. 9514299 570. 451430 0.500399247 | 0.00039922 | 0.500015690 | 0.00001566 .500000030 


从 表 10. 1 可 见 , 当 步 长 三 0. 2 时 , 求 得 的 结果 相差 很 大 ,完全 不 可 信 。 当 步 长 六 =0. 1 
时 , 求 得 的 数值 解 与 精确 解 的 误差 逐渐 变 小 ,但 是 在 左 端点 附近 的 误差 较 大 。 当 步 长 /三 
0. 05 时 , 求 得 的 数值 解 与 精确 解 相 当 接 近 ,结果 比较 可 信 。 实 验证 明 如 果 步 长 取得 更 小 , 则 
求 得 数值 解 与 精确 解 更 接近 。 
103 高 阶 Runge -Kutta 万 法 

RR 级 的 显 式 Runge-Kutta 方法 ,在 R==1,2,3,4 时 ,可 以 分 别 得 到 一 、 二 三、 四 阶 的 方 

法 。 但 是 ,通常 R 级 的 方法 不 一 定 是 R 阶 的 。 设 p(R) 为 R 级 显示 式 方法 可 以 达到 的 最 大 
阶 数 ,有 如 下 结果 

当 R=1,2,3,4 时 ,p(R)==R。p(5)=4,p(6)=5,p(7)=6,p(8)=6,p(9)= 二 7。 当 
R=10,11,… 时 ,p(R)R—2。 


103.1 Kuta Nystr5m 五 阶 六 级 方法 
1. 功能 

求解 初 值 问 题 (10.1)、(10.2) 的 数值 解 。 

2. 计算 方法 


用 (10.15) 式 计算 。 
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KI = f(z, yn) 
K, = f(z 十 圭 hsyr 十 诗 hK: ]， 


K;, = fl|z, 二 jy 十 志 4C4K, 十 6K。) ]， 


(10. 15) 


om Ne 
We 


kK, = Tn EE + Hh(6K, 90OR 一 UK +8K,) |， 


3 


下 一 了 


天， 一 作 本 -CR 一 12K: 十 15Ks) )， 
人 1 


十 三 h sy 十 这 75h 6K1 + 36K, + 10K, +8K0) ), 


Bs 一 yy 十 (23K， 十 125K; 一 81K, 十 125K,) 。 


3. 使 用 说 明 
kuttano5 (fun,x0, xn,y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y) ,Xxo,X, 为 自 变量 的 左右 端点 ,yo 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S= kuttano5 (fun,x0,xn,y0,h) 
n= (xn— x0) /h; 
T= Zeros (1l,nt+ 1); 
Y= zeros (1,nt+ 1); 
T(1)=x0; 
Y(1)=y0; 
for i=1:n 
kl= feval (fun,x0,y0); 
星人 王者 
k2= feval (fun,x0+h/3,y0+h* kl1/3); 
t3=y0+hx (4x* kl+ 6x* k2) /25; 
k3= feval (fun,x0+ 2* h/5,t3); 
t4=y0+hx (kl—12x k2+ 15x* k3) /4; 
k4= feval (fun,x0+h,t4); 
t5=y0+h¥x (6 关 kl+ 90 关 k2— 50* k3+ 8* k4) /81; 
k5= feval (fun,x0+ 2x* h/3,t5); 
七 6 一 YO+hx (6x kl+ 36x* k2+ 1]0x* k3+ 8¥* k4) /75; 
k6= feval (fun,x0+ 4* h/5,t6); 
x0= x0+ h; 
y0=y0+t hx (23x* kl+125x* k3- 81 * k5+ 125* k6) /192; 
Y(i+1)=y0; 
end 


S= IT ,YJ 
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1Q32 Huta 六 阶 八 级 方法 


1. 功能 
求解 初 值 问题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 
用 如 下 的 (10. 16) 式 计算 。 
Ki! = f(x ,Yn), 


K, — A 十 hy, 十 1jk, ] 9 


9 


人 
4 


+ 二 hsys 十 十 序 ACR +3K) ), 


Fr hsys 十 .CK — 3K，, +4Ks) ]， 


/人 

| 

f 名 部 人 志 h(— 5K, + 27K, — 24K, 十 6K, )] 

iC hsys 十 可 AKC221K — 981K; + 867Ks — 102K, + Ks )] i 

K, = 0 eg 十 了 (一 183K 十 678K 一 472K — 66K, 十 80K + 3K, )]; 
a 


pr pom A sh(716K, 一 2079K，, 于 1002 天 ， 834K, 454K; 9 玉 ， 十 12K, )] 9 


| | | 


Vntl 一 Yn + SAK 十 216K;s 十 24Ks 十 272Ks 十 27Kse 十 216K; 十 41Ksg)。 


(10. 16) 
3. 使 用 说 明 


huta6 (fun,x0, xn,y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y),zxo。，X, 为 自 变 量 的 左右 端点 ,yo 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=huta6 (fun,x0,xn,y0,h) 
n= (xn— x0) /h; 
T= zeros (1,n+ 1); 
Y= Zeros (1,n+1) ， 
T(1)=x0;Y (1)= y0; 
for i=1:n 
kl= feval (fun,x0,y0); 
T(i+1)=T(1)+ix h; 
k2= feval (fun,x0+h/9,y0+hx k1/9); 
t3=y0+hx (kl+ 3* k2) /24; 
k3= feval (fun,x0+h/6,t3); 


281 
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t4=y0+thx (kl—- 3x* k2+ 4* k3) /6; 
k4= feval (fun,x0+h/3,t4); 
t5=y0+hx (一 5 关 kl+27x k2— 24* k3+ 6x* k4) /8; 
k5= feval (fun,x0+h/2,t5); 
t6=y0+hx (221 关 kl— 981 关 k2+ 867 * k3- 102 关 k4+ k5) /9; 
k6= feval (fun,x0+2x* h/3,t6); 
t7=y0+hx (一 183 关 kl+ 678 关 k2— 472 关 k3- 66 关 k4+ 80 关 k5+ 3 关 k6) /48; 
k7= feval (fun,x0+ 5* h/6,t7); 
t8=y0+hx (716x* kl— 2079 关 k2+ 1002 * k3+ 834 关 k4— 454 关 k5— 9x* k6+ 72¥* k7) /82; 
k8= feval (fun,x0+h,t8); 
x0= x0+ h; 
yO0=y0+hx (41 关 kl+216x k3+27 关 k4+272 关 k5+ 27* k6+ 216¥* k7+ 41 * k8) /840; 
Y(i+1)=y0; 
end 


S= [T',Y"]; 
例 10.6 分 别 用 Kutta-Nystrom 五 阶 六 级 方法 Huta 六 阶 八 级 方法 求解 初 值 问题 : 
= Xe”—2y, 0 过 Xl1,， y(0) 一 0， 


并 计算 它们 与 精确 解 的 误差 。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 6=@ (x,y) xx* exp (3 关 和) 一 2 关 Y; $$ 建立 微分 方程 右 端的 函数 f(x,y) 
examl10 6=dsolve('Dy=x* exp(3x* x)-2x*y','y(0)=0','x') s 用 dsolve 求 得 解析 解 
E0= kuttan5 (exal0 6,0,1,0,0.1) 代入 程序 kuttan5 求解 

E1=huta6 (exal0 6,0,1,0,0.1) 代入 程序 huta6 求解 

example10 6=inline (examl0 6); s 用 inline 函数 重新 建立 解析 解 -函数 ,以 方便 后 面 的 作 图 和 求 值 
xx= [0:0.1:1]; 当 节 点 

yy= feval (example10 6, xx) s 解 析 解 在 节点 处 的 函数 值 

err=yy- E0(:,2)'" s 精 确 解 与 五 阶 方法 的 数值 解 的 误差 
errl=yy- El1(:,2)" s 精 确 解 与 六 阶 方法 的 数值 解 的 误差 
ezplot (example10 6, [0,1,0,3.5]) s 画 解析 解 的 图 像 

hold on 

plot (EO (:,1)"',E0(:,2)','rx* :') s 画 数值 解 的 图 像 

legend(' 解 析 解 "kutta 五 阶 方法 的 数值 解 ') 

hold off 

figure 

ezplot (example10 6, [0,1,0,3.5]) s 画 解析 解 的 图 像 

hold on 


Eo AL Ells) EE 


legend ("解析 解 ', 'huta 六 阶 方法 的 数值 解 ') 


存 为 ex10_6. m。 在 MATLAB 命令 窗口 调用 exl0 6, 将 执行 后 的 结果 ( 见 图 10. 9、 
图 10. 10) 列 入 表 10. 2。 


本 二 
口 ioo 人 钙 中 oo 


i Ti 


0 
0 
0 
0 
0 
0 
0 
1 
2 
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(1/5 x exp 折光 -1725 expls +1725) expl-2 鸭 


-一 一 解析 解 
六 …kutta- 五 阶 方法 的 数值 解 


10.9 Kutta 五 阶 方法 的 数值 解 与 解析 解 比较 


0.1 


(1/5 x explS x)-1/25 exp(5 x)+1/25) exp(-2 x) 


解析 解 
站 huta- 六 阶 方法 的 数值 解 


10. 10 ”Huta 六 阶 方法 的 数值 解 与 解析 解 比较 


表 10.2 五 六 阶 方法 的 数值 解 与 解析 解 的 比较 ( 步 长 0.1) 


.00575195289264 
.02681257033915 
.07114411975997 
. 15077718220807 
. 28361552223842 
. 49601807369646 
.82647867649185 
. 33085383383638 
. 08976978264281 
. 21909268520395 


.0101 107™° 
.0232 10™ 


0408 10™ 


.0653 107™ 


1000 10™ 
1492 10™ 
2193. 30 一 
3193 10 一 


.4614 10 一 
.6634 10 一 


WW NN HH OO OO OO OO OOOODSDD 


00575205380569 


. 02681280145098 
.07114452695793 
.15077783430315 
.28361652002065 
.49601956279475 
. 82648086553753 
. 33085702002362 
. 08977438760363 
.21909930525800 


ne 


.0017 10 一 
.0039 10 一 
.0071 10 一 
.0117 10 一 
.0185 107" 
.0283 10 
.0428 107" 
.0637 10 一 
.0941 10 一 
0 一 


WW NN mm OO OO OO OS 


解析 解 yCZi 1) 
0 


.00575205397160 
.02681280184143 
.07114452766690 
.15077783547415 
.28361652186714 
.49601956562952 
. 82648086981443 
.33085702639678 
.08977439701106 
.21909931903949 
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从 上 表 可 以 看 出 ,五 .六 阶 方法 的 数值 解 的 精度 已 经 相当 高 了 。 为 了 提高 数值 解 精度 ,除了 
用 更 高 阶 的 公式 外 , 另 一 方法 是 缩小 步 长 ,例如 ,在 本 例题 中 如 果 取 步 长 为 0.05, 则 在 表 10. 2 中 ， 
Kutta 五 阶 方法 的 误差 都 在 10 -数量 级 上 ,而 Huta 六 阶 方法 的 误差 都 在 10 "数量 级 上 。 


104 ”Runge-Kutta Fehlberg 方法 


在 微分 方程 的 数值 解法 中 , 步 长 的 选择 是 很 重要 的 。 由 于 步 长 与 问题 本 身 和 所 用 的 数 
值 方法 都 有 关系 ,所 以 要 做 到 合理 的 选择 也 是 比较 困难 的 。 因 为 在 微分 方程 解 比 较 平 缓 的 
区 域 , 可 以 使 用 较 大 的 步 长 ,而 变化 较 剧 烈 的 区 域 , 应 使 用 较 小 的 步 长 ,所 以 考虑 变 步 长 的 方 
法 ,使 各 节点 上 整体 截断 误差 |y(z,) 一 y,|1 (2 一 0,1,2,…) 不 超过 某 一 允许 值 , 而 使 用 的 节 
点 尽量 少 。 

要 保证 初 值 问 题解 的 精确 性 ,一 种 方法 是 分 别 用 步 长 h 和 h/2 进行 两 次 求解 ,并 比较 较 
大 步 长 所 对 应 的 节点 处 的 结果 。 但 这 样 对 较 小 的 步 长 将 需要 大 量 计 算 , 而 且 当 结果 不 够 好 
时 必须 重新 计算 。 

Runge-Kutta-Fehlberg 方法 是 一 种 变 步 长 控制 误差 的 方法 。 它 用 一 个 过 程 来 确定 是 否 
使 用 了 正确 的 步 长 h。 在 每 一 步 中 ,使 用 两 个 不 同 的 求 近似 解 的 方法 ,并 比较 其 结果 。 如 果 
低 精 度 算法 的 结果 与 高 精度 算法 的 相近 , 则 接受 近似 (此 时 没有 必要 减 小 h); 相 反 , 如 果 两 
种 算法 得 到 的 结果 的 差 超出 了 指定 的 精度 , 则 减 小 步 长 h; 如 果 结 果 超 过 了 要 求 的 有 效 位 
数 , 则 增加 步 长 。 内 置 的 ode23 和 ode45 就 采用 了 这 种 方法 。 上 面 提 到 的 两 种 (p 阶 和 十 
1 阶 ) 方 法 ,可 以 都 选 为 Runge-Kutta 方法 。 一 种 流行 的 方法 是 Runge-Kutta-Fehlberg 方 
法 ,简称 为 R-K-F 方法 。 下 面 介 绍 p 二 4 时 的 R-K-F 四 阶 方法 (R-K-F 方法 还 有 pp 二 5,6， 
7 等 更 高 阶 的 情形 ,可 参阅 文献 | 2 等 )。 


1. 功能 
求解 初 值 问 题 (10. 1)、(10.2) 的 数值 解 。 
2. 计算 方法 
分 别 取 以 下 四 阶 和 五 阶 公式 ,其 中 用 到 的 K;(i= 二 1,2,3,4,5) 都 是 相同 的 。 
2 25 1408 2197,， 1 
Yntl1 一 加 十 让 6 人 :十 3665 从 to 5 Ks， (10.17) 
16 6656 28561;, 9 2 
-ee y» 135 人 1 12825 人 ， T5630 50 人 5 十 55Ks? (10. 18) 
其 中 ， 


[Ki = 一 R(x yn) ， 
K，, 和 rn 


| hf (十 千 ,y 十 部 K + 坊 K: ]， 

Ee [> 这 yy, 国有 1 2 Ks EE Ks ]: 

K; = hf (x, Ee + eK, 一 8K， + mK, 一 本 Ke |， 

四 hf (2 十 分， — Ki 十 2 天 ， + esK: + RK -BK;:]. 
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一 般 选 9 为 
eh 
| Yi 一 yetH | 


具体 计算 时 , 先 选 定 一 个 (或 取 为 上 一 步 的 h) ,计算 


o (10.19) 


Pe 
| 一 


a =0.84x | 


| 六 一 Ya | 1 .183 ， 2197 1 2 / 
一 1560 人 :一 41427584 75240 人 下 5 二 55 | /4. 
如 果 -2 一 yet 一 e, 则 按 (10， 17) 式 计算 y,41, 转 人 下 一 步 。 否 则 , 按 (10. 19) 式 计算 g ,再 
以 gh 为 新 的 步 长 重新 计算 。 
3. 使 用 说 明 


rungekf45 (fun,x0,xn,y0,hmin,hmax,tol) 


fun 是 微分 方程 的 一 般 表达 式 右 端 的 函数 FGz,y),zo,z 为 目 变 量 的 左右 端点 ,yo 为 
初始 值 ,hmin 为 步 长 最 小 值 , 默 认 hmin 二 0. 00001,hmax 为 步 长 最 大 值 ,默认 hmax 一 0. 1 ， 
tol 为 容 差 ,默认 le 一 6。 输 出 解 的 近似 值 。 

4. MATLAB 程序 


function S= rungekf45 (fun,x0,xn,y0,hmin,hmax,tol) 
if nargin<7 
tol= le— 6; 
end 
if nargin <6 
hmax=0. 1; 
end 
if nargin <5 
hmin= 0.00001; 
end 
T(1)=x0;Y (1)= y0;h= hmax; 
k= 2; 
while x0 <xn 
kl=hx* feval (fun,x0,y0); 
k2=hx feval (fun,x0+h/4,y0+ kl1/4); 
k3=hx feval (fun,x0+ 3x* h/8,y0+ 3* kl/32+ 9* k2/32); 
k4=hx feval (fun,x0+ 12*x h/13,y0+ 1932* kl1/2197- 7200 * k2/2197+ 7296* k3/2197); 
k5=h*x feval (fun,x0+h,y0+ 439 关 kl/216- 8* k2+ 3680 关 k3/513- 845 * k4/4104); 
k6=hx feval (fun,x0+ h/2,y0— 8¥* kl/27+2x k2— 3544 *x k3/2565+ 1859 关 k4/4104— 11 * k5/ 
40); 
R= abs (k1/360- 128 * k3/4275- 2197 关 k4/75240+ k5/50+ 2* k6/55) /h; 
dq=0.84* (tol/R)^ (1/4); 
if (R <tol) 
y0=y0+ 16x* kl/135+ 6656¥* k3/12825+ 28561 关 k4/56430-— 9x* k5/50+ 2* k6/55; 


接受 近似 值 
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x0=x0+ h;T(k)=x0;Y (k)= yO0; k= k+ 1; 
end 
If q<=0.1 

h=0.1* h; 
elseif gq>=4 

h=4* h; 
else 

h=qx* h; 计算 新 的 h 
end 
if h> hmax 

h= hmax; 

end 
if x0+h>=xn 

h= xn— x0; 
elseif (h< hmin) 

disp(' 求 解 需要 比 hmin 更 小 的 步 长 '); 
end 

end 


S= [T",Y"]; 


例 10.7 用 R-K-F 方法 求解 初 值 问题 入 一 y 一 z? 十 1,0<z<1,y(0) 一 0. 5 。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 7=@ (x,y) Y-X^2+1; 建立 微分 方程 右 端 的 限 数 f(x,y) 
examl0 7=dsolve('Dy=y-x’2+1"','y(0)=0.5','x'); 用 dsolve 求 得 解析 解 
E0= rungekf45 (exal0 7,0,1,0.5,0.001,0.2,1e- 5) s 代 人 程序 rungekf45 求解 


E]1=Iungekf4> (exal0 7,0,1,0.5,0.001,0.1,1e- 5) 
examplel10 7=inline (examl0 7) ; s 用 inline 函数 重新 建立 解析 解 -函数 ,以 方便 后 面 的 作 图 和 求 值 


xx0=E0(:,1); 节点 

yy0= feval (example10 7,xx) s 解 析 解 在 节点 处 的 函数 值 
xx1=El(:,1); 节点 

yyYl= feval (examplel0 7,xx1l) 

err0= yy0- E0(:,2) 解析 解 与 数值 解 在 节点 处 的 差 
errl= yyl-— El (:,2) 

ezplot (examplel0 7, [0,1,0,3]) s 画 解析 解 的 图 像 

hold on 

plot(E0(:,1) VE0(:，2) zx ') s 画 数值 解 的 图 像 


plot (El(:,1) ,El(:,2)","gs") 
legend (' 解 析 解 ', 'rungekf45,h=0.2 的 数值 解 ', 'rungekf45,h=0.1 的 数值 解 ') 
hold off 


存 为 ex10_7. m。 在 MATLAB 命令 窗口 调用 ex10_7, 将 执行 后 的 结果 ( 见 图 10. 11) 列 


人 表 10. 3。 
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xX2+2 x+1-172 expfx) 


解析 解 
站 rungekf5，h=0.2 的 数值 解 
rungekf5， h=0.1 的 数值 解 


10. 11  R-K-F 方 法 的 数值 解 与 解析 解 比较 


表 10.3 方程 的 解析 解 与 不 同步 长 的 数值 解 比 较 


节点 (h=0. ) 


0 0.5 0.5 0 
0. 13233449735598 0.71143636816678 0.71143637348819 0. 053214 107 
0. 26374594844372 0. 94615509606538 0. 94615510689606 0. 108307 107 
0. 39689786217283 1. 20772160898117 . 20772162608990 0. 171087 107 
0. 53221047732387 1. 49632296570434 .49632298997526 0. 242709 107 
0. 67025581538966 1. 81238580211406 .81238583455938 0. 324453 1077 
0. 81185511532584 2. 15677792433761 .15677796610174 0. 417641 107 
0. 95826211272463 2. 53120965927387 .53120971160170 0. 523278 10-” 
1. 00000000000000 2. 64085903121104 .64085908577048 0. 545594 1077 
节点 zi (天 一 0. 1) 误差 | y(zxi) 一 yy; | 
0.1 0. 657414539971 0. 65741454096218 0. 00990 1077 
0. 2 0. 829298618884 0. 82929862091992 0. 02036 1077 
0. 3 1. 015070593074 1.01507059621200 0.03137 107 
0.4 1. 214087646884 1. 21408765117936 0. 04295 1077 
0. 5 1. 425639359141 1. 42563936464994 0. 05509 1077 
0. 6 1. 648940593027 1. 64894059980475 0. 06777 107 
0.7 1. 883123638165 1. 88312364626476 0. 08099 1077 
0. 8 2. 127229526283 2. 12722953575377 0. 09470 10 一 
0. 9 2. 380198433533 2. 38019844442152 0. 10888 1077 
1.0 2. 640859073424 2. 64085908577048 0. 12346 107 


注 : (i) 从 表 中 数据 可 以 看 出 ,R-K-F 方法 有 时 不 用 等 距 节 点 ,其 结果 已 经 相当 精确 ; 
(ii) 在 本 程序 中 ,影响 结果 精确 度 的 有 两 个 因素 , 即 步 长 hmax 和 容 差 tol, 例 如 ,在 本 例 中 ， 
车 取 有 二 0.05,tol 二 10 或 有 二 0.1,tol 二 10”, 则 误差 都 在 10 “数量 级 上 。 
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105 线性 多 步 法 


求解 初 值 问 题 ”= f(x,y) ,a 三 Xb,y(a) 二 yo 的 线性 上 步 法 的 一 般 公 式 为 


ynrH 一 3 十 h Dp, ， (10. 20) 

其 中 ,ww ,Bi 为 常数 , 且 ao ,PB 不 全 为 Oh= 6 /Nz atih,i=0,1,..,N. 如 果 已 知 
yyn+l ”>Yn+k-1 的 值 ,就 可 通过 (10. 20) 式 计算 y,+:。 要 计算 序列 {y,) ,首先 需要 个 出 
发 值 yo ,yi1，… ,ys-1。 微 分 方程 初 值 问 题 只 提供 了 yo, 还 有 上 一 1 个 出 发 值 m ，,… ,yi-1 需 要 
通过 其 他 方法 求 得 。 

在 (10. 20) 式 中 , 奉 及 =0, 则 可 直接 计算 y,+4 ,此 时 称 (10. 20) 式 是 显 式 的 ; 奋 肥 关 0, 则 
当 f 不 是 y 的 线性 函数 时 ,不 能 直接 计算 w+ 此 时 称 (10. 20) 式 是 隐 式 的 。 

在 区 间 [z, yz 上, 初 值 问 题 ”= f(x,y) ,a 三 X 三 5,y(a) 二 yo 的 解 满足 


Vy (Tarr) > y (Tare ) 二 | f(t,y(2)) di。 (10. 21) 
如 果 用 各 种 数值 积分 公式 近似 (10. 21) 式 右 端 的 积分 式 ,就 可 得 到 多 种 计算 y(Czs+e) 的 近似 
值 y,+4 的 计算 方法 ,这 些 方法 称 为 基于 数值 积分 公式 的 方法 。 


在 (10. 21) 式 中 , 取 A&A=/ 王 2, 该 式 右 端的 积分 式 用 节点 zx, ,Xs+1，Xs+2 的 Simpson 数值 积 
分 公式 近似 ,再 以 yij; 代 替 y (zs,4;)( 二 0,1,2) ,就 得 到 如 下 的 Simpson 方法 : 


oa 十 吧 ( 太 。 EA (10. 22) 


它 是 二 步 四 阶 的 方法 。 
在 (10. 21) 式 中 , 取 & 王 / 王 4, 该 式 右 端 图 数 用 节点 Zriyzo+yz+s 的 二 次 插值 多 项 式 近 
似 , 代 入 积分 式 后 ,再 用 yj; 代替 y(x,4;) (j= 二 0,1,2,3,4) ,就 得 到 
Vnt4 = ys 二 多 (2fon — frte + 2f3)， (10.23) 


这 就 是 Milne 方法 , 它 是 四 步 四 阶 的 方法 。 


YTntt) 一 VCZeH1D) 二 | f(t,y(t))dt, CIO 24) 
Trtk—1 


再 用 数值 积分 公式 ,这 类 方法 称 为 Adams 方法 。 
如 果 在 (10. 21) 式 中 ,f(t,y(t)) 用 7 十 1 个 节点 {zsts-1-;);=o 的 插值 多 项 式 代 蔡 , 代 入 
(10. 24) 式 做 积分 ,以 近似 值 y,;; 代 蔡 y (xz,;;) ,就 得 到 如 下 的 Adams-Bashforth 方法 。 


Vntk 一 Vntk—l 十 六 (on fnte-i 0 frre a EE ， (10.25) 
其 中 
ri -1 加 l; (Xx) dr, 7] 一 0,1 1,，…，7， 
h | 


l; (ZX) 是 节点 X44-1-; 上 的 插值 基 罗 数 。 方 法 (10.25) 是 7r 十 1 步 的 显 式 公式 ,也 称 Adams 显 
式 方法 ,其 中 的 系数 和 阶 如 表 10. 4 所 示 。 
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表 10.4 Adams 显 式 方法 的 系数 表 


| 

汪汪 
2 

人 | 
12 1 12 

本 
24 
1901 i 2616 _ 1274 251 


如 果 在 (10. 21) 式 中 ,f(t,y(72)) 用 7r 十 1 个 节点 (zs+4-;)7=o 的 插值 多 项 式 代 蔡 , 代 入 


(10. 24) 式 做 积分 ,以 近似 值 y,#j; 代 蔡 y (zx,+;) ,就 得 到 如 下 的 Adams-Moulton 方法 。 


其 中 


Vrtk 一 .yorH 一 1 六 h(pro f nt 十 on Es a a 9 (10. 26) 


Ori 一 I Ll; (xX) dr, J = 0,]1,°*,r, 


1; (Xz) 是 节点 x,44_-; 上 的 插值 基 函 数 。 当 rr 三 1 时 ,方法 (10. 26) 是 rr 步 的 隐 式 公式 ,也 称 
Adams 隐 式 方法 ,其 中 的 系数 和 阶 如 表 10. 5 所 示 。 


.yz 


表 10.5 Adams 隐 式 方法 的 系数 表 


人 


; 251 646 _ 264 106 _19 
720 720 720 720 720 
1. 功能 


用 Adams 显 式 方法 求解 初 值 问 题 (10.1)、(10.2) 的 数值 解 。 
2. 计算 方法 
(a) 如 果 提 供 两 个 初 值 yo ,v , 则 用 Adams-Bashforth 二 步 (2 阶 ) 显 式 公 式 : 


天 = ym 二 FL3f ry) — flr ,ye1)] n=1,2,,N—1。 (10.27) 
(b) 和 个 初 值 yo ,yi,y;;, 则 用 Adams-Bashforth 三 步 显 式 公 式 : 
= Yn 5 [23f Csy) < | Ya 2) | 12 一 2 3，…， 八 一 1。 


(10. 28) 
(c) 如 果 提 供 四 个 初 值 yo ,yi ,yz ,ys, 则 用 Adams-Bashforth 四 步 显 式 公 王 


Vntl 一 .yn 十 了 2 [55f/Cz, » Vn) 99f (Xi » yn-_1 ) 
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十 37F(z。 yy ) 一 9FCrz yy s) |]， 


这 里 1 一 3,4，……， 八 一 ]1。 


(d) 如 果 提 供 五 个 初 值 wy,v ,vv yyv , 则 用 Adams-Bashforth 五 步 显 式 公 式 : 


hh 
720 


-一 1274f (zn 3 9 .Vn—3 ) 十 0 Ft 9 .Yn—4 ) | 9 
3. 使 用 说 明 


Vntl 一 .yn 国 


adamsba (fun, x0, xn, y0,h) 


[1901 fx, sy,) — 2774f (x 19 Yn1) 二 2616f (x 2 ,Yrs) 


7 一 ,td 


(10, 29) 


(10. 30) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 限 数 了 (元 0 sn 为 和 目 变量 的 左右 端点 A 为 
初始 值 ,h 为 步 长 。 输 出 解 的 近似 值 。 输 出 解 的 近似 值 。 程 序 将 根据 提供 的 初始 向 量 的 维 


数 r(2 一 5) ,使 用 Adams-Bashforth r 步 显 式 公式 进行 计算 。 
4. MATLAB 程序 


function S=adamsba (fun,x0,xn,y0,h) 
[m,n]= size (y0); 

n=max (m,n); 

N= (xn— x0) /h; 

if (n>5 | n<2) 


error(' 输 入 的 初始 值 错误 ,本 程序 只 能 接受 2~5 个 初始 值 , 请 重新 输入 !'); 


end 

if n== 
T(1)=x0;Y (1)= y0(1) ;xl=x0+h;T (2)=x1;Y (2)= y0 (2);，; 
yl=Y(1);y2=Y (2);ffl= feval (fun,x0,y1); 
for i=3:N+1 


ff2= feval (fun,x],y2);y3=y2+h* (3* ff2- ff1) /2;x2=xl+h; 


T(i)=x2;Y (i)= y3;y2= y3;x1= x2;ffl= ff2; 
end 
end 
if n== 
T(1)=x0;Y (1)=y0(1) ;xl=x0+h;T(2)=x1; 
Y (2)=y0(2) ;x2=xl+h;T (3)=x2;Y (3)= y0 (3); 
yl=Y(1);y2=Y(2);y3=Y(3); 
ffl= feval (fun,x0,y1); 
ff2= feval (fun,x], y2); 
for i=4:N+1 
ff3= feval (fun,x2,y3); 
y4=y3+hx (23x* ff3- 16x* ff2+ 5x* ff1)/12; 
Y(i)=y4;x3=x2+h;T(i)=x3;y3= y4; 
x2= x3; ffl= ff2;ff2= ff3; 
end 
end 
if n== 
T(1)=x0;Y (1)=y0(1) ;xl=x0+h;T (2)=x1;Y (2)= y0 (2); 
x2=xl+h;T(3)=x2;Y (3)=y0 (3) ;x3= x2+h;T(4)= x3; 
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Y(4)=y0(4) ;yl=Y(1);y2=Y(2);y3=Y(3);y4=Y(4); 
ffl= feval (fun,x0,y1); 
ff2= feval (fun,xl, y2); 
ff3= feval (fun, x2,y3); 
for i=5:N+1 
ff4= feval (fun,x3,y4); 
y=y4+hx (55x* ff4- 59* ff3+ 37x ff2- 9x* ff]1) /24; 
Y(i)=y;x4=x3+h;T(i)=x4;y4= y5;x3= x4; 
ffl= ff2;ff2= ff3;ff3= ff4; 
end 
end 
if n==5 
T(1)=x0;Y (1)=y0(1);xl=x0+h;T (2)=xl1;Y (2)= y0 (2);，; 
x2=xl1l+h;T (3)=x2;Y (3)=y0(3) ;x3=x2+h;T(4)= x3; 
Y(4)=y0(4) ;x4=x3+h;T (5)=x4;Y (5)= y0 (5)，; 
yl=Y(1);y2=Y (2);y3=Y(3);y4=Y(4) ;y=Y (2); 
ffl= feval (fun,x0,y1) ;ff2= feval (fun,xl,y2); 
ff3= feval (fun,x2,y3) ;ff4= feval (fun,x3,y4); 
for i=6:N+1 
ff5= feval (fun,x4,yo); 
y6=y5+h¥x (1901 关 ff5-— 2774¥* ff4+ 2616¥* ff3- 1274¥* ff2+ 25] * ff1) /720; 
Y(i)=y6;x=x4+h;T(i)=x9;y= y6;x4= x9; 
ffl= ff2;ff2= ff3;ff3= ff4;ff4= ff9; 
end 
end 


Ss 


例 10.8 用 Adams-Bashforth 步 ( 显 式 ) 方 法 求解 初 值 问 题 y = (1+3eosG3z) j 
0 三 X2,y(0) 二 1。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 8=@ (x,y) (1+3/2x cos(3x x))* sqrt(y); s 建 立 微 分 方程 右 端的 函数 f(x,y) 


XXx= 0:0.1:2; 

s 用 dsolve 求 得 解析 解 为 

examplel0 8=inline('(1/4) * x.’2+ (1/4).* x.* sin(3x x)+x+ (1/16) * sin(3x* x).”2+ (1/2) * sin (3* 
x)+1'); 用 inline 函数 建立 解析 解 , 以 方便 后 面 的 作 图 和 求 值 
yy= feval (examplel0 8,xx) $s 解析 解 在 节点 处 的 函数 值 

y0=yy (1: 4); s 取 解析 解 的 前 4 个 值 作为 Adams-Bashforth 四 阶 方法 的 初 值 
E= adamsba (exal0 8,0,2,y0,0.05) 代入 程序 adamsba 求解 

errl=yy'—E(:,2) $$ 解析 解 与 数值 解 的 差 

EE= rungek4 (exal0 8,0,2,yy (1),0.05) s 用 经 典 四 阶 RK 公式 求解 

err2=Yyy"'— EE(:,2) 

ezplot (example10 8, [0,2,0,4]) s 画 解析 解 的 图 像 

hold on 

PIot (E(:71) ",E(:,2)", "rs") s 画 数值 解 的 图 像 


Plot(EE(:，1) ,EE(:,2)","g¥* ") 
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legend (' 解 析 解 ', 'adamsba 方法 的 数值 解 ', ' 经 典 四 阶 RK 方法 的 数值 解 ') 


hold off 

figure 

plot (E(:,1)",errl', 'rs— ') $6 解析 解 与 adamsba 方 法 的 数值 解 的 误差 图 像 
hold on 

plot (E(:,1)',err2', bx :') s 解 析 解 与 经 典 四 阶 RK 方法 的 数值 解 的 误差 图 像 


legend(' 解 析 解 与 adamsba 方法 的 数值 解 的 误差 ',' 解 析 解 与 四 阶 RK 方法 的 数值 解 的 误差 ') 


将 以 上 脚本 文件 存 为 ex10_8. m。 在 MATLAB 命令 窗口 调用 ex10_8, 将 执行 后 的 结果 
显示 在 图 10. 12 和 图 10. 13 中 ,数据 略 去 ,详情 可 在 执行 程序 后 的 屏幕 显示 中 看 到 。 


(N74) x+) x sin(3 yw)+x+(1716) sin(3 x)2+...+1 


解析 解 
口 adamsba 方 法 的 数值 解 
经 典 四 阶 Rk 方法 的 数值 解 


瑟 一 解析 解 与 adamsba 方 法 的 数值 解 的 误差 
35 了 SIL + “解析 解 与 四 阶 RK 方 法 的 数值 解 的 误差 


有 1 La 2 


10.13 四 阶 RK 方法 及 Adams 四 阶 方法 的 数值 解 的 误差 比较 
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从 图 10. 12 和 图 10. 13 可 见 ,Adams-Bashforth 四 阶 方法 求 得 的 解 要 比 同 阶 的 Runge- 
Kutta 方法 求 得 解 的 误差 大 很 多 。Adams-Bashforth 方法 的 优点 在 于 它 的 计算 量 小 ,因为 它 
每 一 步 仅 需要 计算 一 个 浮 数 值 ,而 Runge-Kutta 四 阶 方法 每 一 步 需要 计算 四 个 男 数 值 。 
Adams 显 式 方法 一 般 不 单独 使 用 ,将 Adams 显 式 方 法 与 Adams 隐 式 方法 联合 使 用 , 则 得 
到 预测 -校正 方法 。 


106 预测 -校正 方法 


不 论 单 步 法 还 是 多 步 法 , 隐 式 法 一 般 比 同 阶 的 显 式 法 精确 ,而 且 数 值 稳定 性 好 ,但 是 在 
隐 式 公式 中 ,通常 很 难 解 出 w+l, 需 要 迭代 法 求解 ,这 样 又 增加 了 计算 量 。 在 实际 计算 中 ， 
很 少 单独 用 显示 公式 或 隐 式 公式 ,而 是 将 它们 联合 使 用 : 先 用 显示 公式 求 出 y(x,+1) 的 预测 
值 , 记 作 y ,+ ,再 用 隐 式 公式 对 预测 值 进行 校正 , 求 出 >Czs+i) 的 近似 值 y,+1 ,这样 的 数值 方 
法 称 为 预测 -校正 方法 。 


106G1 四 阶 Adams 预测 -校正 方法 


1. 功能 
用 四 阶 Adams 预测 -校正 方法 求解 初 值 问题 (10.1)、(10.2) 的 数值 解 。 
2. 计算 方法 


(a) 首先 用 四 阶 Runge-Kutta 公式 计算 出 VyV1，y2，y3， 以 由 Vo» yl，y2，Yy3 作为 初 值 进行 
(b)~ (ce)s 
(b) 预测 


YR = yn + [55f Css ys) — 59f C1 sy) + 37f zes sea) — 9f (res » yes); 
(c) 校正 
yn = ys + Lf oni syP) + 19f 2539s) — 5f ze yo) + f reas ye) 
3. 使 用 说 明 
adprecor4 (fun, x0, xn, y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 胃 数 f(x,y) ,xo ,XxX 为 日 变量 的 左右 端点 ,yo 为 
初始 值 ( 回 量 ) ,hh 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=adprecor4 (fun,x0,xn,y0,nh) 
n= (xn— x0) /h; T= zeros (1,nt+ 1); 
Y= zeros (1l,nt+ 1);T(1)=x0;Y (1)=y0; 
for i=1:3 
kl= feval (fun,x0,y0); 
T(t1)=T(1})+1* hs 
k2= feval (fun,x0+h/2,y0+h* k1/2); 
k3= feval (fun,x0+h/2,y0+h* k2/2); 
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k4= feval (fun,x0+h,y0+h*x k3); 
x0= x0+ h; 
yO0=y0+hx (kl+2x k2+ 2x* k3+ k4) /6; 
Y(i+1)=y0; 

end 

ff0= feval (fun,T (1),Y (1)); 

ffl= feval (fun,T (2),Y (2)); 

ff2= feval (fun,T (3),Y (3)); 

a 

for i=S:n+1 
ff3= feval (fun,T(1)+ (i—- 2) * h,y4); 
ybar=y4+hx* (55* ff3- 59* ff2+ 37* ff1— 9 关 ff£f0) /24; 
ff4= feval (fun,T(1)+ (i—-1) * h,ybar); 
y=y4+hx (9x* ff4+19x* ff3- 5x* ff2+ ff1) /24; 
Y(i)=y5;T(i)=T(1)+ (i—-1)*h; 
ff0= ffl1;ffl= ff2;ff2= ff3;y4= y5; 

end 


S= [TY |] 


例 10.9 用 四 阶 Adams 预测 -校正 方法 求解 初 值 问 题 y' ==zx?y’ ,1l 硅 x 夺 2,y(0) 二 1/3。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 9=@ (x,y) Y^2 关 x’2; s 建 立 微分 方程 右 端 的 图 数 f(x,y) 
examl0 9= dsolve ('DYy=Y^2 关 X^ 2 Y(1)=1/37， XI) 3; 用 dsolve 求 得 解析 解 

ER= 1]:0.1:2 

examplel10 9=inline (exam10 9); s 用 inline 函数 建立 解析 解 ,以 方便 后 面 的 作 图 和 求 值 
yy= feval (example10 9,xx) $s 解 析 解 在 节点 处 的 函数 值 

E=adprecor4 (exal0 9,1,2,1/3,0.1) s 代 和 程序 adprecor4 求解 
errl=yy'—E(:,2) s 解 析 解 与 四 阶 adams 预测 校正 方法 的 数值 解 的 差 
EE= rungek4 (exal0 9,1,2,1/3,0.1) 和 用 经 典 四 阶 RK 公式 求解 

err2= yy'— EE(:,2) 

plot (E(:,1)',errl', rs- ') s 解 析 解 与 四 阶 adams 预测 校正 方法 的 数值 解 的 误 
差 图 形 

hold on 

niotB(ls ll) err2 sD a") s 解 析 解 与 经 典 四 阶 RK 方法 的 数值 解 的 误差 图 形 


legend(' 解 析 解 与 四 阶 adams 预测 校正 方法 的 数值 解 的 差 ', "解析 解 与 四 阶 RK 方法 的 数值 解 的 差 ') 


hold off 


将 以 上 脚本 文件 存 为 ex10 9. m。 在 MATLAB 命令 窗口 调用 exl0 9, 将 执行 后 的 数据 


结果 略 去 ,详情 可 在 执行 程序 后 的 屏幕 显示 中 看 到 ,此 处 只 给 出 图 形 结果 ( 见 图 10. 14、 
图 10. 15) 。 


通过 多 个 实例 的 实验 结果 ,我 们 发 现 四 阶 Adams 预测 -校正 方法 的 误差 一 般 都 比 四 阶 


RK 方法 的 误差 大 ,其 实 还 可 对 四 阶 Adams 预测 -校正 方法 加 以 修正 ,得 到 改进 的 四 阶 
Adams 预测 -校正 方法 。 
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-3/(x3-10) 
解析 解 


口 四 阶 Adams 预 测 -校正 方法 的 数值 解 
+ 经典 四 阶 RK 方 法 的 数值 解 


一 旦 一 解析 解 与 四 阶 Adams 预 测 -校正 方法 的 数值 解 的 甜 
… 丰 … 解 析 解 与 四 阶 RK 方 法 的 数值 解 的 差 


10.15 四 阶 Adams 预测 -校正 方法 及 四 阶 RK 方法 的 数值 解 的 误差 比较 


1062 改进 的 Adame 四 阶 预测 -校正 方法 


1. 功能 
用 改进 的 Adams 四 阶 预 测 -校正 方法 求解 初 值 问题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 


(a) 首先 用 四 阶 Runge-Kutta 公式 计算 出 wm yy ,ys ,以 则 w,yyy yys 作为 初 值 进行 
(b)~(e); 
(b) 预测 值 


Pntl — Se 2 [55f/ Cz, ,yn ) 四 959 . 太 Z1 » .yx 一 1 ) 37/ (Xe2 » Yn_2) ， .yx 一 3 ) |] ; 
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(c) 修正 预测 值 
Mintl 一 prntl — 0p = 
mnt 一 fT mean); 


(d) 校正 值 
Cntl 一 Vn A 车 [9m%n+ EL » Yn) DT » Vn-1) 二 了 二 ,yn 2 ) |; 


(e) 修正 校正 值 
Yat 一 Cut + 0 (pm a 
3. 使 用 说 明 


imadprecor (fun, x0, xn,y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y) ,zxo,X, 为 自 变量 的 左右 端点 ,yo 为 
初始 值 (向 量 ) ,为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S= jmadprecor (fun, x0, xn,y0,nh) 

n= (xn— x0) /h; 

T= zeros (1,nt+ 1); 

Y= zeros (1,nt+ 1); 

T(1)=x0; 

Y(1)=y0; 

For 上 >》 
kl= feval (fun,X0,Y0) 
T(i+1)=T(1)+ix h; 
k2= feval (fun,x0+h/2,y0+hx k1/2); 
k3= feval (fun,x0+h/2,y0+h* k2/2); 
k4= feval (fun,x0+h,y0+h* k3); 
xXx0= x0+ h; 
yO0=y0+h¥ (kl+2 关 k2+ 2* k3+ k4)/6; 
Y(i+1)=y0; 

end 

ff0= feval (fun,T(1),Y(1)); 

ffl= feval (fun,T (2),Y (2)); 

ff2= feval (fun,T (3),Y (3)); 

ve Yt(4)3 

c0O= 0;p0= 0; 

for i=S:n+1 
ff3= feval (fun,T(1)+ (i— 2) * h,y4); 
pl=y4+hx (55x* ff3- 59* ff2+ 37x ff1— 9x* ff0) /24; 
mml=pl— 251] * (P0- c0) /270; 
mm= feval (fun,T(1)+ (i—1) ¥* h,mml); 
cl=y4+hx (9x*x mmt 19x* ff3- 5x* ff2+ ff1) /24; 
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y95=cl+19x* (pl cl1)/270; 
Y (i)=y>; 
T(i)=T(1)+ (i—-1) * h; 
ff0= ffl1;ffl= ff2;ff2= ff3; 
y4= yo; 
co= cl;p0=pl; 
end 


S= [T',Y"]; 
例 10.10 利用 改进 的 Adams 四 阶 预测 -校正 方法 重新 求解 例 10. 9 的 初 值 问题 ,并 与 


四 阶 Adams 预测 -校正 方法 的 结果 进行 比较 。 
解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 10=@ (x,y) Y^2 关 x’2; 建立 微分 方程 右 端的 函数 f(x,y) 

exam10 10=dsolve('Dy=y“2* x*2','y(1)=1/3','x'); s 用 dsolve 求 得 解析 解 
Xx= 1 :0.05:2; 

example10 10=inline(exam10 10); ”名 用 inline 函数 建立 解析 解 , 以 方便 后 面 的 作 图 和 求 值 
yy= feval (examplel0 10,xx) $s 解析 解 在 节点 处 的 函数 值 

E= imadprecor (exal0 10,1,2,1/3,0.05) s 代 和 人 程序 imadprecor 求解 

errl=yy'—E(:,2) $s 解析 解 与 数值 解 的 差 一 一 即 绝 对 误差 

EE= adprecor4 (exal0 10,1,2,1/3,0.05) s 代 入 程序 adprecor4 求解 

err2= yy"'— EE(:,2) 

EEE= rungek4 (exal0 10,1,2,1/3,0.05) s 用 经 典 四 阶 RK 公式 求解 

err3= yy"— EEE (:,2) 

plot (E(:,1)',errl', zs- ') $$ 解析 解 与 改进 的 Adams 四 阶 预 测 -校正 方法 的 数值 解 的 误差 
图 像 

hold on 

plot (E(:,1)"',err2','gd——'") s 解 析 解 与 四 阶 Adams 预测 -校正 方法 的 数值 解 的 误差 图 像 
octris TI re D3") $$ 解析 解 与 经 典 四 阶 RK 方法 的 数值 解 的 误差 图 像 


legend (' 解 析 解 与 改进 的 Adams 四 阶 预 测 - 校 正方 法 的 数值 解 的 差 ',' 解 析 解 与 四 阶 Adams 预测 - 校 
正方 法 的 数值 解 的 差 ',' 解 析 解 与 四 阶 RK 方法 的 数值 解 的 差 ') 


hold off 

figure 

ezplot (example10 10, [1,2,1/3,1.5]) s 画 解析 解 的 图 像 
hold on 

plot (E(:,1)',E(:,2)', 'rs') s 画 数值 解 的 图 像 


plot (EE(:,1)",EE(:,2)',"g* ") 
legend ("解析 解 ',' 改 进 的 Adams 四 阶 预测 -校正 方法 的 数值 解 ',' 经 典 四 阶 RK 方法 的 数值 解 ') 
hold off 


存 为 ex10_10. m。 在 MATLAB 命令 窗口 调用 ex10_10, 即 得 结果 。 此 处 只 给 出 执行 
后 的 图 像 ( 见 图 10.16、 图 10. 17) ,将 数据 结果 略 去 ,详情 可 在 执行 程序 后 的 屏幕 显示 中 
看 到 。 

从 图 10. 16 中 ,可 以 看 出 改进 的 Adams 四 阶 预 测 - 校 正方 法 解 的 精度 比 Adams 四 阶 预 
测 -校正 方法 解 的 精度 有 了 明显 的 提高 ,但 是 比 经 典 四 阶 RK 方法 解 的 精度 还 差 些 。 
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-3/03-10) 
解析 解 
口 “改进 的 Adams 四 阶 预 测 -校正 方法 的 数值 解 
经 典 四 阶 RK 方 法 的 数值 解 


一 旦 一 解析 解 与 改进 的 Adams 四 阶 预测 -校正 方法 的 数值 解 的 差 
解析 解 与 四 阶 Adams 预 测 -校正 方法 的 数值 解 的 差 
… 丰 … 解 析 解 与 四 阶 RK 方 法 的 数值 解 的 差 


用 -上 朋 一 胡 一 好 -~ 风骨 -- 肯 -出 -仙人 锅 一 条 一 全 


1063 Hamming 预测 -校正 方法 


1. 功能 
用 Hamming 预测 -校正 方法 求解 初 值 问题 (10. 1)、(10. 2) 的 数值 解 。 
2. 计算 方法 
(a) 首先 用 四 阶 Runge-Kutta 公式 计算 出 wm ,y ,ys ,以 则 yyyyyzyys 作为 初 值 进行 
(b)~(e); 
(b) 预测 值 
prti = ys 十 nt2 fx, ;Ya) 一 f Tal Yn) 2f Tn ,yn2) |; 


EE 
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(c) 修正 预测 值 
加 112 a 
Grnt1 一 Prtl 一 Jo1 Db en 9» dxtl 一 Fd Ontl ); 
(d) 校正 值 
po [9y, a 


(e) 修正 校正 值 
Vntl 一 Cntl + 37 (pan = 
3. 使 用 说 明 


hamprecor (fun, x0, xn, y0,h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端的 图 数 f(x,y) ,zo,X, 为 目 变 量 的 左右 端点 ,yo 为 
初始 值 ( 回 量 ) ,hh 为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=hamprecor (fun,x0,xn,y0,h) 

n= (xn— x0) /h; 

T= zeros(l,nt1)s 

Y= zeros (1 ,nt 1); 

T(1)=x0; 

Y(D=Y0; 

yyY0= y0; 

for i=1:3 
kl= feval (fun,x0,y0); 
T(i+1)=T(1)+ix h; 
k2= feval (fun,x0+h/2,y0+h* k1/2); 
k3= feval (fun,x0+h/2,y0+h*x k2/2); 
k4= feval (fun,x0+h,y0thx k3); 
x0= x0+ h; 
yO=y0+hx (kl+2x* k2+ 2x k3+ k4) /6; 
Y(i+1)= y0; 

end 

ff0= feval (fun,T (1),Y(1)); 

ff1= feval (fun,T (2),Y (2)); 

ff2= feval (fun,T (3),Y (3)):; 

yyYl=Y (2); 

yy2=Y (3); 

yy3=Y (4); 

cO= yy3; 

pO0O= yy3; 

for i=5:nt+1 
ff3= feval (fun,T(1)+ (i—- 2) * h,yy3); 
pl=yy0+ 4*x hx (2x* ff3- ff2+2x ff1)/3; 
ql=pl- 112* (P0- c0)/121; 
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qq= feval (fun,T(1)+ (i—-1) * h,qgql); 
cl= (9x* yy3—- yyl+ 3*x hx (gqqt+2*x* ff3- ff2))/8; 
yy4= cl+ 9x* (pl- cl1)/121; 
Yl)=Yyds 
T(i)=T(1)+ (i—-1)* h; 
ffl= ff2; 
ff2= ff3; 
yy0= yyl; 
yyl= yy2; 
yy2= yy3; 
yyY3= yy4; 
co= cl;p0=pl; 
end 


S= [T"',Y"]; 


例 10.11 利用 Hamming 预测 -校正 方法 求解 初 值 问题 屏 一 (1 十 2(z 十 D)sin(3z))er>， 


0 三 XxX 三 5,y(0) 二 0, 并 与 改进 的 Adams 四 阶 预 测 - 校 正方 法 的 结果 进行 比较 。 


解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 


exal0 11=@ (x,y) (1+2x (x+1)* sin(3* x)) *exp(-y); ， s 建 立 微分 方程 右 端的 函数 f(x,y) 
examl0 1l=dsolve('Dy= (]+2 关 (x+1) * sin(3x* x)) * exp(-y)"','y(0)=0","x") 


名 用 dsolve 求 得 解析 解 
xx=0:0.05:3; 
examplel0 11= inline (examl10 11); 和 用 inline 函数 建立 解析 解 , 以 方便 后 面 的 作 图 和 求 值 
yy= feval (example10 11,xx) s 解 析 解 在 节点 处 的 函数 值 
E= hamprecor (exal0 11,0,5,0,0.05) 当代 入 程序 hamprecor 求解 
errl=yy'—E(:,2) $6 解析 解 与 数值 解 的 差 一 一 即 绝 对 误差 
EE= imadprecor (exal0 11,0,5,0,0.05) s 代 入 程序 imadprecor 求解 
err2= yy"'— EE(:,2) 
EEE= rungek4 (exal0 11,0,5,0,0.05) s 用 经 典 四 阶 RK 公式 求解 
err3= yy'— EEE (:,2) 
BloE(E(s 1) erril” "m*=") s 解 析 解 与 Hamming 预测 -校正 方法 的 数值 解 的 误差 图 像 
hold on 
plot (E(:,1)",err2', 'b——") s 解 析 解 与 改进 的 Adams 四 阶 预 测 - 校 正方 法 的 数值 解 的 误差 图 像 
站 本 本 3 s 解 析 解 与 经 典 四 阶 KE 方法 的 数值 解 的 误差 图 像 


legend(" 解 析 解 与 Hamming 预测 -校正 方法 的 数值 解 的 差 … "解析 解 与 改进 的 Adams 四 阶 预 测 校正 方 
法 的 数值 解 的 差 … "解析 解 与 四 阶 RK 方法 的 数值 解 的 差 ') 


hold off 

figure 

ezplot (example10 11, [0,5,0,2.5]) s 画 解析 解 的 图 像 
hold on 

GE 人 (IT 下 (2 9 s 画 数值 解 的 图 像 


legend(' 解 析 解 … 'Hamming 预测 -校正 方法 的 数值 解 ') 
hold off 
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存 为 exl0 11.m。 在 MATLAB 命令 窗口 调用 ex10_11, 由 于 数据 结果 太 多 , 故 略 去 数 
据 结 果 , 此 处 只 给 出 执行 后 的 图 像 ( 见 图 10. 18 .图 10. 19) ,详细 的 数据 结果 可 在 执行 程序 后 
的 屏幕 显示 中 看 到 。 


log(x+219 sin® -273 x cost3 HW-213 cos 为 后 六) 


| 解析 解 
口 “Hamming 预 测 -校正 方法 的 数值 解 


一 一 一 解析 解 与 改进 的 Adams 四 阶 预测 校正 方法 的 数值 解 的 差 


一 一 一 解析 和 解 与 四 阶 RK 方 法 的 数值 解 的 差 
0 0.5 1 1.5 2 2.5 3 3.5 | 45 5 
10.19 


从 图 10. 19 可 见 ,Hamming 预测 -校正 方法 与 改进 的 Adams 四 阶 预测 校正 方法 的 数值 
解 基本 相同 ,但 它们 的 误差 都 比 四 阶 RK 方法 的 误差 大 很 多 。 
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107 变 步 长 的 多 步 法 


1. 功能 

用 Adams 变 步 长 预测 -校正 方法 求解 初 值 问题 (10. 1) (10. 2) 的 数值 解 。 

2。 计 算 方 法 

此 变 步 长 的 预测 -校正 方法 用 显示 4 步 Adams-Bashforth 方法 作为 预测 式 , 用 3 步 隐 式 
Adams-Moulton 方法 作为 校正 式 ,具体 算法 见 程序 。 

3. 使 用 说 明 


vsprecor4 (fun, x0, xn,y0,hmin,hmax,tol) 


fun 是 微分 方程 的 一 般 表 达 式 右 端的 图 数 f(x,y) ,zo,ZX, 为 目 变 量 的 左右 端点 ,yo 为 
初始 值 ( 回 量 ) ,hmin 为 步 长 最 小 值 ,hmax 为 步 长 最 大 值 ,tol 为 容 差 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=V7sPrecor4 (fun,x0,xn,y0,hmin,hmax,tol) 
shmin- 允许 的 最 小 步 长 默认 hmin= 0.00001,hmax- 允许 的 最 大 步 长 ,默认 hmax=0.1; 
stol- 容 差 , 默 认 le-6 
if nargin<7 
tol= le— 6; 
end 
if nargin <6 
hmax= 0.1; 
end 
if nargin <5 
hmin= 0.00001; 
end 
h= hmax; 
T(1)=x0;Y (1)= y0; 
ff= zeros (5,1); 
done= 0;last= 0; 
flag=1;k=1; 
while (done== 0) 
if flag==1 
for i=1:3 
ff (i)= feval (fun,x0,y0); 
kl= feval (fun,x0, y0); 
k2= feval (fun,x0+h/2,y0+h* kl1/2); 
k3= feval (fun,x0+h/2,y0+h* k2/2); 
k4= feval (fun,x0+h,y0+h*x k3); 
x0=x0+h;y0=y0+t+h¥* (kl+2x* k2+2* k3+ k4) /6; 
T(i+k)=x0; 
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Y(i+k)=y0; 
end 
k= kt+ 3; 
end 


ff (4)= feval (fun, x0,y0); 


闻 微 分 方程 初 值 问题 的 数值 解法 


yp=y0+hx* (55 关 ff(4)— 59* ff(3)+37x* ff(2)- 9* ff(1))/24; $$ 预测 


ff (5)= feval (fun,x0+h,yp); 
y0=y0+t+hx* (9x* ff(5)+19x* ff(4)— 5* ff(3)+ ff(2))/24; 
R=19x abs (y0- yp)/ (270* h); 
q= (tol/ (2* R))” (1/4); 
if (R<tol) 
k= kt+ 1;x0= x0+ h; 
T(k)=x0;Y (k)= y0; 
ff (1)= ff (2); 
ff (2)= ff (3); 
ff (3)= ff (4); 
If (last==1) 
done= 1; 
elseif (R<0.1 ¥*x tol| (x0+h)> xn) 
if (R<0.] * tol) 
h=min (hmax,min (gq, 4) * h); 
end; 
IE ((x0+4* h)>xn) 
h= (xn— x0) /4; 
last=1; 
end 
flag=1; 
else 
flag= 0; 
end 
else 
h=max (gq,0.1) * h; 
if (h< hmin) 
disp (" 求 解 需要 更 小 的 步 长 !'); 
end; 
If (flag==1) 
k= k— 3; 
end 
x0=T(k);y0=Y (k); 
flag=1; 
if ((x0+4x h)>xn) 
h= (xn 一 x0) /4; 
last=1; 
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else 
last= 0; 
end; 
end; 
end; 


S= [T",Y"]; 


例 10.12 用 Adams 变 步 长 预测 -校正 方法 求解 初 值 问 题 仿 一 y(2 一 y),0<z<5， 


y(0) 一 1/20。 
解 ”建立 如 下 脚本 文件 : 
exal0 12=@ (x,y) Yx (2-y); 建立 微分 方程 右 端 的 函数 f(x,y) 
examl0 12=dsolve('Dy=y* (2-y)','y(0)=0.05"','x') 名 用 asolve 求 得 解析 解 
E0=vsprecor4 (exal0 12,0,5,0.05,0.01,0.25, 1le- 6) s 代 和 程序 vsprecor4 求 解 


El= vsprecor4 (exal0 12,0,5,0.05,0.01,0.1,1e-— 6) 
E2= vsprecor4 (exal0 12,0,>,0.05,0.01,0.0>,1e- 5) 
examplel0 12= inline (exam]l0 12); 
s 用 inline 函数 重新 建立 解析 解 - 函 数 , 以 方便 后 面 的 作 图 和 求 值 


xx0=E0(:,1); 名 节点 
yy0= feval (example10 12,xx0); s 解 析 解 在 节点 处 的 函数 值 
xx1l=E1(:，1); 名 节点 


yyYl= feval (examplel0 12,xx1); 

err0= yy0- E0(:,2) s 解 析 解 与 数值 解 在 节点 处 的 差 
errl= yyl-— El (:,2) 

err2= yy2- E2(:,2) 


ezplot (example10 12, [0,5,0,2]) s 画 解析 解 的 图 像 
hold on 
plot(E0(:,1) ',E0(:,2)"','r——') s 画 数值 解 的 图 像 


DoCS is2) 0 Gn 
legend(' 解 析 解 ', ' 变 步 长 vsprecor4 的 数值 解 (=0.25) ',' 变 步 长 vsprecor4 的 数值 解 hb=0.1) 7) 


hold off 

figure 

plot (EO0 (:,1) ',err0, 'r') s 画 解析 解 与 变 步 长 vsprecor4 的 数值 解 的 差 (bn=0.25) 的 图 形 
hold on 


DIGE(EI(: 1) errl’ .bmBloE(E2(:,1) err2" -3 )3 

legend (' 解 析 解 与 变 步 长 vsprecor4 的 数值 解 的 差 h= 0.25) ', ' 解 析 解 与 变 步 长 的 vsprecor4 的 数值 
解 的 差 (bh=0.1)',' 解 析 解 与 变 步 长 的 vsprecor4 的 数值 解 的 差 (h= 0.05) ') 

hold off 


将 以 上 脚本 文件 存 为 ex10 12.m。 在 MATLAB 命令 窗口 调用 ex10 12, 由 于 数据 结果 


太 多 , 故 略 去 数据 结果 此 处 只 给 出 执行 后 的 图 像 ( 见 图 10. 20、 图 10. 21) ,详细 的 数据 结果 可 
在 执行 程序 后 的 屏幕 显示 中 看 到 。 


第 10 章 常 微分 方程 初 值 问题 的 数值 解法 


21{1+39 exp(-2 0)) 


一 一 一 解析 解 
一 一 一 变 步 长 vsprecoM 的 数值 解 〈h=0.25) 
变 步 长 vspreco4d 的 数值 解 〈《h=0.15》 
0 0.5 1 1.5 2 2.5 3 3.5 站 45 5 
x 


10. 20 


解析 和 解 与 变 步 长 xvsprecor4 的 数值 解 的 差 (h=0.25)》 
* 解析 和 解 与 变 步 长 的 vsprecor4 的 数值 解 的 差 (h=0.15)》 
解析 解 与 变 步 长 的 vsprecor4 的 数值 解 的 差 《h=0.05》 
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1. 功能 

用 Gragg 外 推 法 求解 初 值 问题 (10. 1) (10. 2) 的 数值 解 。 
2. 计算 方法 

Step 1 nk=[2,4,6,8,12,16,24,32]。 
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h= hmax; 
Flag 王 1。(CFlag 用 作 退 出 Step 4 中 的 循环 ) 
Step3 上 or 1 一 1,2，…，/ 
For j 王 1,……，1 
令 Qi 一 (nk;r1/nk:; a 
Step 4 While (Flag=1) do Steps 5 一 20。 
Step 5 令 k==1; 
Nflag 二 0。( 当 达到 精度 要 求 时 ,Nflag 置 为 1) 
Step6 While (k = 8 and Nflag=0) do Steps 7 一 14。 
Step 7 令 hk=h/hk:; 
T=T,;W,= Wo; 
Ws=W,T+hk* f(T,W,); 
T= To 二 hk.。 
Step 8 For ] 王 1,… ,nk 一 ] 
令 Wi=W,;W,=W;; 
Was 一 Wi 十 2。hk 。fCT,W:); (中 点 方法 ) 
工 三 To 十 (十 1) 。 hk。 
Step 9 令 六 = 二 [Ws 十 Ws 十 hk* f(T,W;,) |]/2。 
Step 10 If k=2 then do Steps 11 一 13。 
Step 11 令 j=k; 


V 一 YI。 
Step 12 While (j 三 2) do 
令 Yj-1 = Yj; 十 (Yi — DAD me 2 ;外 推 计算 Yi 一 1 = Yi-it2 ; 


] 二 J] 一 1。 
Step 13 Ifabs(Yi—V)==tol then 令 Nflag 一 1。 
Step 14 令 上 =k 十 1。 
Step 15 令 k=k 一 1。 
Step 16 If Nflag=0 then do Steps 17 and 18 
else do Steps 19 and 20 。 
Step 17 令 h=h/2。( 拒 绝 w 的 新 值 , 减 小 h) 
Step 18 Ifh = hmin then 
OUTPUT (超出 最 小 的 hmin ); 
令 Flag 二 0。 
Step 19 令 W,= 二 YY; 
To 二 To 十 h; 
OUTPUT (T,,W,,h)., 
Step 20 If T, 宇 b then 令 Flag=0; 
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else if To+h>b then 令 h=b—T,; 

else if (k 一 3 and h=0. 5(hmax)) then 令 h 王 2h。 
Step 21 停止 。 
3. 使 用 说 明 


gragextra (fun,a,b,y0,hmin,hmax,tol) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y),a,b 为 自 变 量 的 左右 端点 ,yo 为 初 
始 值 ( 回 量 ) ,hmin 为 步 长 最 小 值 ,hmax 为 步 长 最 大 值 ,tol 为 容 差 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=gragextra (fun,a,b,y0,hmin,hmax,tol) 
名 Step 1 
nk= [24:0 907 12.10.24 3213 
名 Step 2 
S= [];t0=a;w0= y0;h= hmax; 
Flag=1; sFlag 用 作 退 出 step 4 中 的 循环 
$$ Step 3 
OQO= zeros (8,8); 
for i=1:7 
for j=1:1 
Q(i,j)= (nk (i+1) /nk(j)) * (nk(i+1)/nk(j)); 
end; 
end; 
$$ Step 4 
while Flag==1 


$$ Step 5 
k= 1;» 
Nflag= 0; s 当 达到 精度 要 求 时 ,Nflag 置 为 1 
Y= zeros (1,10); 
$$ Step 6 
while k <=8 & Nflag==0 
S$ Step 7 
hk=h/nk (k) ;T=t0;w2= wO; 
w3=w2+ hk x* feval (fun,T,w2); $%S Euler 第 a 步 
T=t0+hk;M= nk (k)—1; $$ Step 8 
for j=1:M 


Wl= Ww2;w2= w3; 
w3=wl+2x hkx feval (fun, T,w2); s 中 点 方法 
T=t0+ (j+1) * hk; 
end; 
S$ Step 9 
Y(k)= (w3+ w2+hkx feval (fun,T,w3)) /2; 
S$ Step 10 
if k>=2 
$$ Step 11 
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j=k;V=Y(1); 

$$ Step 12 

while j>=2 
OD=2GFO T0501 
外 推 计 算 Y(j-1)=Y(k,k-j+2) 


J]=J-1; 
end; 
$$ Step 13 
If abs(Y(1)—-V)<=tol 
Nflag= 1; 
end; 
接受 Y(1) 作为 新 的 w 
end; 
$$ Step 14 
k=k+1;» 
end; 
$$ Step 15 
k= k-— 1; 
$$ Step 16 
if Nflag==0 
$$ Step 17 
拒绝 w 的 新 值 , 减 小 h 
h=h/2; 
$$ Step 18 
if h <hmin 
printf(' 超 出 最 小 的 hmin\n'); 
Flag= 0; 
end; 
else 
$$ Step 19 
wO=Y (1);t0=t0+h; 
S= [S;tO0,wO,h,k]; 
$$ Step 20 
if t0>=b 
Flag= 0; 
else 
if tOth>b 
h=b- t0; 
else 
If k <=3 & h<0.5 关 hmax 
h=2* h; 
end; 
end; 
end; 


if h> hmax 
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h=h/2; 
end; 
end; 


end; 


例 10.13 利用 Gragg 外 推 法 求解 初 值 问题 们 一 ,0<z<3， 
VC0) 一 ]。 

解 用 MATLAB 程序 求解 ,建立 如 下 脚本 文件 : 

exal0 13=@ (x,y) (log (x+2)+5 关 cos (3x X) ) /Y^3; $$ 建立 微分 方程 右 端 的 函数 f(x,y) 

examl0 13=dsolve('Dy= (ln (x+2)+5x cos (3x x))/y"3','y(0)=1', 'x') s 用 dsolve 求 得 解析 解 

E0= gragextra (exal0 13,0,3,1,0.02,0.25,1e— 6) 守 代 人 程序 gragextra 求解 

El= gragextra (exal0 13,0,3,1,0.01,0.15,1e— 6) 

E2= gragextra (exal0 13,0,3,1,0.01,0.05,1e— 6) 

example10 13=inline (exam10 13); s 用 inline 函数 重新 建立 解析 解 -函数 ,以 便 作 图 和 求 值 

xx0=E0(:,1); 当 节 点 

YY0= feval (example10 13,xx0) s 解 析 解 在 节点 处 的 函数 值 

xx1=El(:,1); 节点 

yyYl= feval (examplel0 13,xx1); 

Xx2=E2(:,1); 当 节 点 


YY2= feval (examplel0 13,xx2); 

err0=yy0- E0(:,2) s 解 析 解 与 数值 解 在 节点 处 的 差 
errl= yyl- El(:,2) 

err2= yy2- E2(:,2) 


ezplot (example10 13,[ 0,3,0,2.2]) s 画 解析 解 的 图 像 
hold on 
plot (EO(:,1)"',E0(:,2)"', 'r:') s 画 数值 解 的 图 像 


Boe (EL TEL 2 "gq3") 
legend (' 解 析 解 ', 'gragextra 外 推 法 的 数值 解 (h=0.25) ', 'gragextra 外 推 法 的 数值 解 (h=0.15)') 


hold off 

figure 

plot (E0 (:,1)',err0, 'r') s 画 数值 解 的 图 像 
hold on 


plot (El1 (:,1)"',errl','b—— x¥*") 

和 

legend (' 解 析 解 与 gragextra 外 推 法 数值 解 的 差 h= 0.25) ', ' 解 析 解 与 gragextra 外 推 法 数值 解 的 差 
(h=0.15) ', "解析 解 gragextra 外 推 法 的 数值 解 的 差 (h=0.05) ') 

hold off 


将 以 上 脚本 文件 存 为 ex10_13. m。 在 MATLAB 命令 窗口 调用 ex10_13, 由 于 数据 结果 
太 多 , 故 略 去 数据 结果 此 处 只 给 出 执行 后 的 图 像 ( 见 图 10. 22、 图 10. 23) ,详细 的 数据 结果 可 
在 执行 程序 后 的 屏幕 显示 中 看 到 。 

注 : 此 程序 求 得 的 数值 解 的 精度 与 程序 中 三 个 参数 hmin,hmax 和 tol 都 有 密切 关系 。 
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173 B24 log(x+2] x+646 log(x+2)-324 x+81+2160 cos(x)* sino0-540 sin()-648 logt2))' 


一 一 解析 解 
gragextra 外 推 法 的 数值 解 〈《h=0.25) 
gragextra 外 推 法 的 数值 解 《h=0.15) 
0 0.5 1 1.5 p 2.5 3 


一 一 一 解析 和 解 与 gragextra 外 推 法 数值 解 的 差 (h=0.25) 
一 目 一 解析 解 与 dragextra 外 推 法 数值 解 的 差 〈《h=0.15) 
解析 解 gragextra 处 推 法 的 数值 解 的 差 〈h=0.05) 


109 党 微分 方程 组 和 高 阶 微分 方程 的 数值 解法 


给 定 一 阶 微分 方程 组 的 初 值 问题 : 
= ls 9 i = ym mG Tbs 
|， ott (10. 31) 


yi(a) 一 ai， t= Ly gs 


采用 向 量 的 记号 , 记 
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y = [yi ,ym ， 
yr) = [yx) ys(Zz) | ， 
(zyy) 一 |[ 广 (zy)，。 (zyy) |, 
y 一 [yi，…yn]， 
| 
则 初 值 问题 (10. 31) 可 以 简单 地 写成 
(yew dé (10. 32) 
前 面 讨论 的 关于 微分 方程 的 初 值 问 题 的 数值 解法 ,完全 适用 于 一 阶 微 分 方程 组 的 初 值 
问题 (10. 32)。 本 节 将 经 典 的 四 阶 Runge-Kutta 方法 推广 到 求解 一 阶 微分 方程 组 的 初 值 问 
题 (10. 32)。 
1091 常 微分 方程 组 的 数值 解法 
1. 功能 
用 四 阶 Runge-Kutta 方法 求解 一 阶 微分 方程 组 的 初 值 问题 (10. 32) 。 
2. 计算 方法 


计算 公子 : 
Ki = f(x;,w;), 


K, = /f(z 十 到 , 吧 十 全 R ]， 
2 四 
h 


K; /> 二 多, 十 全 1 ]， 


K, = f(zx; 十 hw; 十 hhK;)， 
[wn 一 WW; + (kK 十 2K -ZK 二 有 了 ls 一。 


其 中 hh= (6 一 a)/N,Zzjti1= 二 Xj; 十 h ,j= 二 0,1,… ,NN 一 1 ,zo 二 a,wo 二 a。w; 是 问题 (10. 32) 的 解 
y(X) 在 xX 二 xz; 处 的 数值 解 。 

ye w; =[vw,; 9 LO2,j 9" 9 TOm,j - , 则 

Yi(Xi) Twi,;, Wo = a ,gl 

再 记 开 一 [LA As kom] ,二 1,2,3,4, 则 经 典 四 阶 Runge-Kutta 方法 的 计算 公式 的 分 
量 形式 为 

Ri 一 万 (Ziyzoljiyzz mj ), 1 一 1,2…)771， 

ks,; = 所 (者 十 各 ws 十 本 avaoay 十 鲁 ne stom 十 二， i = 1,2,° ,mm 


2 
k4,i 一 fil(x; 上 » TU]1,j 十 hk,1 » TOU2,j Th » TOm,j 十 hk s,m) ， 1 二 1],2,.…,m, 


Ra ; -一 fi (5 十 Lo 十 多 ks 9 U2,j 十 kz. 9 9 TO,j 十 kn ] 9 1 一 ys 777 。 


Yo 一 Qi， = | ys 


YUi, 计 1 一 Ti 十 站 Cs 十 2k,，; 十 2k, 十 Ri)， 和 1] ,°° 772 ，7 = 一 0,1],.… ,NC— ] 。 
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3. 使 用 说 明 
rk4symeq (fun,a,b,alpha, h) 


fun 是 微分 方程 的 一 般 表 达 式 右 端 的 图 数 f(x,y),a,b 为 日 变量 的 左右 端点 ,alpha 为 
初始 值 ( 回 量 ) ,为 步 长 。 输 出 解 的 近似 值 。 
4. MATLAB 程序 


function S=rk4symeqg (fun,a,b,alpha, nh) 
m= length (alpha); 
N= ceil ((b-a)/h); 
if a>=b 
printf(' 左 端点 必须 小 于 右 端 点 '); 
end; 
S= zeros (N+ 1,mt+ 1); 
W= Zeros (1,m) ;v= zeros (1,m); 
Kl= zeros (1,m) ;K2= zeros (1,m); 
K3= zeros (1,m) ;K4= zeros (1,m); 
h= (b- a) /N; 
t=a;S(1,1)=t; 
w=alpha;s (1,2:mt+ 1)=w; 
for I=1:N 
Kl= feval (fun,t,w); 
K2= feval (fun,t+h/2,w+t hx Kl1/2); 
K3= feval (fun,t+h/2,wth* K2/2); 
K4= feval (fun,t+h,wth* K3); 
w=w+hx* (Kl+2x* K2+ 2* K3+ K4) /6; 
t=at+L* h; 
S(L+1,1)=t; 
S(L+1,2:mt+ 1)=w:; 


end; 
a 
HE 5Zz 十 17y， 
例 10.14 求解 微分 方程 组 衬 一 一 2r 十 5y 十 sin(50)， 


[z=1, y(0) 一 一 3。 
解 用 MATLAB 程序 求解 ,建立 如 下 男 数 文件 和 脚本 文件 : 


function w=exl10 14(t,y) 
w= [- Sx*x y(1)+17x*x y(2);-2x* y(1)+Sx*x y(2)+ sin(S* t)]; 


存 为 exal0 14. m。 


S=Irk4symeq ("exal0 14",0,20, [1 一 3],0.1) 
plot (S(:,1),S(:,2),'b',S(:,1),S(:,3),'rx* ") 
legend (' 图 像 y1', ' 图 像 y2') 

figure 
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plot (S(:,2),S(:,3),"r") 


将 以 上 脚本 文件 存 为 ex10_14. m, 在 MATLAB 命令 窗口 调用 ex10_14, 由 于 数据 结果 太 
多 , 故 略 去 ,详细 的 数据 结果 可 在 执行 程序 后 的 屏幕 显示 中 看 到 ,执行 后 的 图 像 见 图 10. 24 和 
图 10. 25 。 


图 形 xtt) 
* ”图 形 y(t) 


10.25 方程 组 的 相 图 


dr _ 

dy 

一 一 一 28 二 
例 10.15 求解 Lorenz 微分 方程 组 4 dt i 

dz 


一 号 = 十 zy， 


0 
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解 用 MATLAB 程序 求解 ,建立 如 下 了 匈 数 文件 和 脚本 文件 : 


function dy=exal0 15(t,y) 
dy= zeros (3,1);dy(1)=— 10x*x y(1)+10x* y(2); 
dy(2)=28* y(1)-—-y(2)-y(1) * y(3) ;dy (3)=y(1) * y(2)- 8* y(3)/3; 


将 图 数 文件 存 为 exal0 15. m。 


S=Ik4symeq ("exal0 15",0,5, [- 8;8;27],0.01) 
EL le "Ee st ls “== .| 


legend (' 图 形 x(t)',' 图 形 y(t) 图形 z(t)') s 图 10.26 
figure 

plot3(S(:,2),S(:,3),S(:,4),'b') 名 图 10.27 

x0= [= 8,8,2117tspan= 1 0， 2 

[t,x]=ode45 (@ exal0 15,tspan, x0) 用 ode45 求解 
figure 

Blot{tt zt,l)e bE xl 2 Et (Gq== 图 10.28 
figure 

plot3(x(:,1),x(:,2),x(:,3)) 名 图 10.29 


0 0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 


10. 26 用 程序 rk4symeq 求 得 的 结果 


—20 


-40 -20 


10.27 方程 组 的 相 图 (rk4symeq) 
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0 0.5 1 1.5 2 2.5 3 J.5 4 4.5 5 


10. 29 方程 组 的 相 图 (ode45) 


将 以 上 脚本 文件 存 为 ex10_15. m, 在 MATLAB 命令 窗口 调用 ex10_15, 由 于 数据 结果 太 
多 , 故 略 去 ,详细 的 数据 结果 可 在 执行 程序 后 的 屏幕 显示 中 看 到 ,执行 后 的 图 像 分 别 为 
图 10. 26、 图 10. 27。 

注 : 我 们 分 别 用 了 MATLAB 的 ode45( 见 图 10.28、 图 10.29) 和 rk4symeq 程序 求解 本 
例 ,从 计算 结果 可 知 , 它 们 的 计算 结果 在 区 间 [L0,2j 上 基本 一 致 ,但 是 随 着 区 间 的 加 大 ,它们 
求 得 的 结果 之 间 的 差别 越 来 越 大 。 因 为 rk4symeq 使 用 的 是 四 阶 方法 ,精度 较 低 ,因此 , 较 
复杂 的 问题 不 易 在 较 大 区 间 上 使 用 它 。 
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WE (xsYys ,es We -bs 
Ts (10. 33) 
ya)=as yy(a) 一 az ya) 一 Co， 
可 化 为 一 阶 微分 方程 组 的 初 值 问题 。 令 
WH=y, y=y, yn = y™, 


则 (10. 33) 化 为 关于 wm ,yz ,yn 的 一 阶 微分 方程 组 的 初 值 问题 
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y1= yz， 

y2= ys， 

1 

二 二 f(r,Yyi 9 V2 ye Ye)s 

a yi(a)=al, Vy2(a) 一 az， ynm(Ca) 一 ano (10. 34) 


例 10. 16 求解 VanderPol 微分 方程 y 一 (1 一 y)y 十 y 一 0,y(0) 一 一 3,y (0) 一 一 0. ] 。 
解 令 > 一 y 则 原 微 分 方程 化 为 微分 方程 组 


多 一 之 ， 
lz 一 (1 一 多 )z 一 y。 


用 MATLAB 程序 求解 ,建立 如 下 因 数 文件 和 脚本 文件 : 


function dy= exal0 16(t,y) 

dy= zeros (2,1) ; 

dy (1)=Y(2) 

dy (2)= (1-Y(1) “2) * y(2)-y(1); 

存 为 exal0 16.m。 

S=Irk4symeq ("exal0 16",0,15, [- 3;- 0.1],0.01) 
ES s 画 图 10.30 
legend(' 图 形 y(t)',' 图 形 dy (t) /dt ') 

y0= [- 3,—0.1]; 

tspan= [0,15]; 


[t,y]=o0de45 (@ exal0 16,tspan, y0) 和 用 ode45 求解 
figure 
SEE 画图 10.31, 与 图 10.30 基本 相同 


legend(' 图 形 y(t)',' 图 形 ay(t) /dt') 


将 以 上 脚本 文件 存 为 ex10_16. m, 在 MATLAB 命令 窗口 调用 ex10 _ 16, 由 于 数据 结果 太 
多 , 故 略 去 ,详细 的 数据 结果 可 在 执行 程序 后 的 屏幕 显示 中 看 到 ,执行 后 的 图 像 为 图 10. 30。 


和 微分 方程 边 值 问题 的 数 但 解法 


册 由 间 


二 阶 微分 方程 
光一 Frzyy)，a 委 工 委 5， 一 ce 二 yy 到 十 co (11.1) 
的 两 点 边 值 问题 ,简称 边 值 问题 ,其 边 值 条 件 有 下 面 三 类 : 
第 一 边界 条 件 
yl(a) =a, y(b) = p; (11. 2) 
第 二 边界 条 件 
y (a)=a, vy(b)=p; (11.3) 
第 三 边界 条 件 
y (a) 一 aoy(a) =a, yb)++h yb)=B, (11. 4) 
其 中 w 三 0, mm 三 0,ao 十 让 二 0。 我 们 分 别称 它们 为 第 一 、 第 二 、 第 三 边界 问题 。 
11.1 打 野 法 
11.1.1 线性 边 值 问题 的 打靶 法 
对 于 线性 边 值 问题 
y=p(r)y 十 g(z)y 十 r(z)，a 魏 工 迄 0， (11.5) 
Wr =a, y(b)= Bp. (11. 6) 
考虑 两 个 初 值 问题 : 
妨 一 放 (z)V 二 oz)y 十 rz)，a 近 工 乏 0， C11.7) 
[ey Vi(a) = 0 (11.8) 
以 及 
y= pl(zr)yzst+ qz)ys, areb, (11. 9) 
In jetay= 1 (11. 10) 


设 w 是 初 值 问 题 (11.7)、(11. 8) 的 解 , 设 w% 是 初 值 问 题 (11.9)、(11. 10) 的 解 ,并 设 y,(5) 关 


0, 则 边 值 问 题 (11.5)、(11.6) 的 解 为 


y(zX) = yi(7x) mA (11.11) 
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1. 功能 

求解 边 值 问 题 (11. 5) (11. 6) 的 数值 解 。 

2. 计算 方法 

用 四 阶 Runge-Kutta 方法 分 别 求 得 初 值 问 题 (11.7)、(11. 8) 的 解 wm (xz) 和 初 值 问题 


(11.9)、(11.10) 的 解 y; (xz) ,然后 利用 公式 (11. 11) 得 到 边 值 问 题 (11.5)、(11. 6) 的 数值 解 ， 
这 就 是 线性 边 值 问题 的 打 计 法 ，。 


3. 使 用 说 明 
shootlin (funl, fun?2,a,b,alpha, beta, h) 


funl ,fun2 分 别 是 初 值 问 题 (11.7)、(11. 8) 和 初 值 问题 (11.9)、(11. 10) 的 一 阶 微分 方 


程 ,用 M 文件 定义 ,a,b 为 目 变 量 的 左右 端点 ,alpha,beta 为 初始 值 ,h 为 步 长 。 输 出 解 的 近 
似 值 。 


4. MATLAB 程序 


function S= shootlin (funl, fun2,a,b,alpha, beta, h) 
N= ceil ((b-a)/h);za= [alpha;0]; 


2= rk4symeq (funl,a,b, Za,h); s 解 微分 方程 组 funl 
T=-2(:,1):UF=2(:,2)72a= [0;1]; 

2= rk4symeq (fun?2,a,b, 2a,h); s 解 微分 方程 组 fun2 
2(:,2); 

s 求 边 值 问 题 的 解 


W=U+ (beta-U(N+1))* V/V(N+ 1); 
S= [T,W]:; 


例 11.1 用 线性 线性 边 值 问题 的 打靶 法 求解 y (xz) 二 y (zx) 一 y(x) 十 3e** 一 2sinz， 


y(0) 一 2Dyy(42) 一 一 10。 


解 ” 先 将 二 阶 微分 方程 写 为 两 个 微分 方程 组 ,然后 调用 程序 shootlin 计算 。 建 立 如 下 


子 数 文件 . 


function S=exll 1 
S= shootlin(@ exall 1a,@ exall 1b,0,2,5,- 10,0.1); 
plot (S(:,1),S(:,2)); 
legend ("打靶 法 求 得 的 数值 解 ') 
function dy=exall la(t,y) 

dy= zeros (2,1);，; 

dy (1)=y(2); 

dy (2)=y(2)-y(1)+3x exp(2*t)-2x* sin(t); 
function dy=exall 1b(t,y) 

dy= zeros (2, 1);，; 

dy (1)=y(2); 

dy (2)=y(2)-y(1); 


存 为 exll 1.m, 在 MATLAB 命令 窗口 调用 exll 1, 屏 幕 显示 如 下 结果 (图 像 为 图 11. 1) 。 


>> S=exll 1 
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S= 0 5.00000000000000 
0.10000000000000 3.38664672574281 
0.20000000000000 1.60451773272671 
0.30000000000000 一 0.33894647917298 
0.40000000000000 一 2.43189538386601 
0.50000000000000 —4.65729023760591 
0.60000000000000 一 6.99200650508196 
0.70000000000000 一 9.40579345750320 
0.80000000000000 —11.86006198114694 
0.90000000000000 一 14.30646483536916 
1.00000000000000 一 16.68522522998313 
1 .10000000000000 一 18.92315930419662 
1.20000000000000 一 20.93132545719828 
1 .30000000000000 一 22.60221798456103 
1 .40000000000000 一 23.80640348108725 
1.50000000000000 一 24.38847520613605 
1.60000000000000 一 24.16217212795721 
1.70000000000000 — 22.90447451705917 
1.80000000000000 一 20.34844533892204 
1.90000000000000 —16.17453458678030 
2.00000000000000 一 10.00000000000000 


-5 


-10 


-15 


11.1.2 非 线性 边 值 问题 的 打靶 法 


解 二 阶 微分 方程 的 边 值 问题 : 
y 一 zyy )，a 委 并 和 0 一 co<y< 王 十 co， 
=a, y(b) 一 8。 
的 打 训 法 的 基本 思想 是 把 边 值 问题 化 为 初 值 问 题 来 解 。 具 体 做 法 是 通过 反复 调整 初始 时 的 
斜率 y (a) 二 1 的 值 , 使 初 值 问 题 


(L112) 
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|， A (11. 13) 
yl(a) =a, yy (a)=t 
的 解 y(Czoi) 在 T=b 的 值 y (5,t) 满 足 
y(b,t) 二 BB 或 | y(0b,1) 一 B| 二 8， 
其 中 8 为 允许 的 误差 界 。 这 样 ,我 们 把 y(5,z) 作 为 边 值 问题 (11. 12) 的 (近似 ) 解 。 
要 想 成 功 地 运用 打靶 法 ,就 要 求 limy(b,t) 二 y(5) 二 B。 实 际 上 , {4} 可 以 看 成 非 线性 方 
程 y(5,?) 一 B= 二 0 的 近似 解 序列 。 知 用 割 线 法 解 此 非 线 性 方程 , 则 的 选取 按 式 (11. 14) 计 
算 。 选 取 初 值 to ,ti , 则 计算 


(y(Ot 1) 一 ee fi» ) 
y(b ,tei) — y(b,ts) 


直到 |y(b,t) 一 B81 二 为止 ,其 中 6 为 允许 的 误差 界 。 

1. 功能 

求解 边 值 问题 (11. 12) 的 数值 解 。 

2. 计算 方法 

给 定 初 值 i。 ,误差 限 tol, 最 大 迭代 次 数 ms。 

(1) 取 1=t, 用 四 阶 Runge-Kutta 方法 求 得 初 值 问 题 (11. 13) 的 解 y(zx,to)。 若 |y(b， 
to) 一 BI 二 e, 则 y(z,to) 作 为 边 值 问题 (11. 12) 的 解 。 


iy yz ,用 四 阶 Runge-Kutta 方法 求 得 初 值 问题 (11. 13) 的 解 >(Cz， 
‘UsLto 


1 )。 若 |y(6b,t1) 一 8| 二 e; 则 y(z,ti) 作 为 边 值 问题 (11. 12) 的 解 。 

(3) 对 上 二 2,3,… ,nmax， 按 式 (11.14) 计 算 &;。 用 四 阶 Runge-Kutta 方法 求 得 初 值 问题 
(11.13) 的 解 y(z,t)。 若 |y(6,ti) 一 B81 二 e,; 则 y(z,ti) 作 为 边 值 问题 (11. 12) 的 解 。 

3. 使 用 说 明 


， R 一 2 3，……， (11.14) 


ti = te 


(2) 令 t=t = 


shtnlin (fun,a,b,alpha, beta,h,t0,tol,nmax) 


fun 是 初 值 问 题 (11. 12) 的 二 阶 微分 方程 ,用 M 文件 定义 ,a,b 为 自 变 量 的 左右 端点 ， 
alpha,beta 为 初始 值 ,h 为 步 长 ,给 定 的 初 值 to ,误差 限 tol, 默 认 tol 二 10 ,最 大 迭代 次 数 
nmax ;默认 nm 二 20。 输 出 解 的 近似 值 。 

4. MATLAB 程序 


function s= shtnlin (fun,a,b,alpha,beta,h,t0,tol,nmax) 
N= ceil ((b-a)/h); 
if nargin<9 
nmax= 20» 
end 
if nargin <8 
tol= J]e— 8; 
end 
If nargin <7 
t0= (beta- alpha) / (b- a); 
end 


bdc= [alpha;t0]; 


sl= rk4symeq (fun,a,b,bdc,h); 
zl1= sl (N+ 1,2); 
if abs (zl- beta)<tol 
s= sl1; 
end 
tl=beta/zl * tO0; 
bdc= [alpha;t1]; 
32= rk4symeq (fun,a,b,bdc,h); 
Zz2= s2 (N+ 1,2); 
if abs (z2- beta)<tol 
Ss= S52; 
end 
for k= 2:nmax 
t=t1— (z2— beta) < (tl1—t0)/(z2- 2z]1); 
bdc= [alpha;t]; 
3s2= rk4symeq (fun,a,b,bdc,h); 
z2= s2 (N+ 1,2); 
if abs (z2-— beta)<tol 
Ss= S52; 
end 
tO=tl1;tl=t; 
end 


3= S52: 
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例 11.2 用 非 线 性 边 值 问 题 的 打靶 法 求解 YD=TY + yD =4,y(2) =8, 
解 ” 先 将 二 阶 微分 方程 写 为 微分 方程 组 ( 令 >x=y ), 然 后 调用 程序 shtnlin 计算 。 用 


MATLAB 程序 求解 ,建立 如 下 郴 数 文件 : 


function S=exll 2 

S= shtnlin(@ exall 2,1,2,4,8,0.1,2); 

plot (S(:,1),S(:,2),S(:,1),5(:,3),"'r:") 
legend (' 曲 线 y(t) "曲线 dy/dt') 

s 用 MATIAB 的 函数 pvp4c 计算 
solinit=bvpinit (Linspace (1,2,5)，[8 4]); 
sol=bvp4c (@ exall 2,@exall 2bv,solinit) 
xx= linspace (1,2,11); 

yy= deval (sol, xx) 

figure 

plot (xx, yy (1, :) '- Ss(:,2)); 


legend ('bvp4c 求 的 数值 解 与 shtnlin 求 的 数值 解 的 差 ') 


function dy=exall 2(t,y) 
dy= zeros (2,1)，; 
dy (1)=y(2); 
dy (2)=y(2)/t+2¥x y(2)/y(1); 


function res=exall 2bv (ya, yb) 


边界 条 件 函 数 
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res= [ya (1)-—4 


S=1.00000000000000 


1.10000000000000 
1 .20000000000000 
1.30000000000000 
1.40000000000000 
1.50000000000000 
1.60000000000000 
1.70000000000000 


4.00000000000000 


4.22795707097240 
4.48970035254925 
4.78714738990744 
5.12208055507826 
D.49613503224230 
5D.91079338846311 
6.36738587689686 


yb(1)- 8]; 
存 为 ex11 2.m, 在 MATLAB 命令 窗口 调用 exll 2, 则 屏幕 显示 如 下 结果 ( 见 图 11. 2、 
3 
一 一 曲线 y(t) 
曲线 dy/dt 
入 11.3 
>> S=ex11 2 


2.11133612581233 
2.44520380507081 
2.79286491993358 
3.15905151884532 
3.54234030992612 
3.94122185163137 
4.35416281324941 
4.77965788039986 
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1.80000000000000 6.867095327172595 5D.21626946458332 
1 .90000000000000 7.41096539355176 5.66265520362789 
2.00000000000000 7.99991098274821 6.11758450081359 


S 的 第 1 列 为 节点 ,第 2 列 为 微分 方程 的 解 y() 在 节点 处 的 近似 值 ,第 3 列 为 y (7) 在 
节点 处 的 近似 值 。 


sol=x: [1 1.25000000000000 1.50000000000000 1.75000000000000 2] 
y: [2x5 doublel] 
yp: [2x5 doublel] 


solver: 'bvp4c' 
WG al La Ld .Lag ow eG da LG Lg Zod 


yy= Columns 1 through 6 
4.0000000000 4.2279749806 4.4897184434 4.7871724294 5.1221207076 5.4961693934 


2.1173987450 2.4452845845 2.7929261647 3.1591120592 3.5424191770 3.9413118094 


Columns 7 through 11 
5.9108507896 6.3674458107 6.8671656312 7.4110532204 8.0000000000 
4.3542557290 4.7797653694 5.2163841542 5.6627701060 6.1177175367。 


yy 的 第 1 行为 微分 方程 的 解 y(#) 在 节点 处 的 近似 值 ,第 2 行为 y (在 节点 处 的 近似 值 。 


11.2 有 限 才 分 法 
差分 方法 是 以 差 商 代替 导数 ,从 而 把 微分 方程 离散 化 为 一 个 差分 方程 组 ,然后 以 此 方程 
组 的 解 作为 微分 方程 边 值 问题 的 近似 解 , 它 是 解 微 分 方程 边 值 问题 的 一 种 基本 数值 方法 。 
11.21 线性 边 值 问题 的 差分 方法 


考虑 第 一 边 值 问题 (11.5) (11. 6)。 将 区 间 [a,6b]N 等 分 , 令 x, 二 a 十 nh,h= 二 (6 一 a)/ 
Nn 二 0,1,…,N。 设 vy(z) 是 第 一 边 值 问题 的 解 ,把 y(x,ii) 和 y(x,_i) 在 x, 处 按 Taylor 
公式 展开 , 略 去 余 项 就 可 得 到 解 边 值 问题 (11. 5) ,(11. 6) 截 断 误 差 为 O(h?) 的 差分 方程 组 : 


.yo 一 Q， 

ee he I CIE 15) 

了 DT 7 me a 

yN 一 局 ， 
其 中 w (2 王 1,…,N 一 1) 是 y(z,) 的 近似 值 ,方程 组 写成 矩阵 形式 为 

Ay = b, (11.16) 
其 中 ， 
2 二 hz g(x) —1+ Fp(n) 
h a h 
和 
h 2 h 
1 Spry-:) 2 二 hq(zxN 2) -1+ sp(rys) 


一 1 一 人 pzw iD) 2 十 尼 g(zw-i) 
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| 一 大 (zl) 十 (1 十 pla ) J 


— hr(z,) 
和 全 。 
— hr(zN-_s) 
YN-1 
_ h*r(zxn_1) 十 (1 plzn ja 
1. 功能 
求解 边 值 问 题 (11. 5) (11. 6) 的 数值 解 。 
2。 计 算 方法 
求解 方程 组 (11. 16) 得 到 边 值 问题 (11.5)、(11.6) 的 数值 解 。 
3. 使 用 说 明 


findiff (funl,fun2, fun3,a,b,alpha, beta,N) 


funl ,fun2 ,fun3 分 别 是 初 值 问题 (11.5) 的 p(x),g(x) 和 r(x), 需 要 用 阴 数 文件 定义 ， 


或 inline 田 数 定义 。a,p 为 自 变 量 的 左右 端点 ,alpha,beta 为 初始 值 ,NN 为 区 间 等 分 数 。 输 
出 解 的 近似 值 。 


4. MATLAB 程序 


function s=findiff (funl,fun2,fun3,a,b,alpha, beta, N) 
h= (b- a) /N; 
for i=1:N-—1 

x(i)=a+ix h; 

q(i)= feval (fun2,x(i)); 

V(i)= feval (fun3,X(I) ) 

r(i)=feval (funl,x (1)); 


g(i)=2+q(i) * h°2; 


end 

for i=1:N-—2 
f(i)=-1-h*xr(i+1)/2; 
c(i)=—-1l1+hx rr(i)/2; 

end 


d(1)=—-v(1) * h^2+alpha* (l+hx* r(1)/2); 
d(N-1)=—-v(N-1) * h^2+betax (ll-hx*xr(N-1)/2); 
for i=2:N-—2 
d(i)=—-v(i) * h’2; 
end 
Ww= tridi (f,g,c,d); 
for i=0:N 
x0 (i+1)=at+i h; 
end 


ww= [alpha,w,betal; 
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s= [x0",ww"]; 

function z=tridi (a,b,c,d) 
n= length (d); 

X= Zeros (size (d) ); 


c(1)=c(1)/b(1); 


for j=2:n—1 
c(j)=c(j)/(b(I)-a(j-1)* c(-1)); 
end 
d(1)=d(1)/b(1); 
for j=2:n 
d= -a0-D*a0G- /Eola *e0-D)s 
end 


x(n)=d(n); 

For 1=7=1s=1:1 
x(J)=d(J)-c(I) *x(I+1); 

end 

w(tLsnls 


ZZ—= Xr 
-> 、 日 M -A 2 sin(lnzx) _ _ 
例 11.3 求解 边 值 问题 y 全 二 十 二 ?十 一 1sz 和 2,y() 一 1,y(2) 一 2。 


解 ”建立 如 下 脚本 文件 : 

funl=inline('-2/x', 'x'); $s 建立 函数 p(x) 
fun2= inline('2/x^2', 'x'); 建立 函数 q(x) 
fun3= inline ('sin (log (x))/x’2', 'x'); $s 建立 函数 工 (x) 
a=1; 

b= 2; 

alpha= 1; 

beta= 2; 

N= 20:; 

s=findiff (funl,fun2, fun3,a,b,alpha, beta,N) 

yy=dsolve ("D2y=— 2/x¥ Dyt 2/x^2% yt sin{(log (x)) /x^2','y(1)=1','y(2)=2", 'x"); 


用 dsolve 求解 
yz= inline (YY) ; 用 inline 函数 重新 建立 解析 解 函数 ,以 便 求解 析 解 在 某 些 点 的 值 
x L003:2s 
y= yx (xx) s 解 析 解 在 节点 xx 处 的 值 


plot (xx,y, 'r',s(:,1)',s(:,2)','b:¥* ) 
legend (' 解 析 解 ',' 数 值 解 ') 

figure 

plot (xx,y— s(:,2)"',"r") 


legend (' 解 析 解 与 数值 解 的 差 ') 


存 为 exll 3. m。 在 MATLAB 命令 窗口 调用 exll 3, 并 将 部 分 计算 结果 填 人 表 11. 1 
(全 部 数据 结果 在 可 执行 程序 后 看 到 ) 。 
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表 11.1 


8 


ET 


1.0 1 1 0 

1.1 1.09262206580487 1.09262929848129 1.2327 10™ 
1.2 1. 18707436204029 1. 18708484048368 1.0478 10™ 
1. 3 1. 28337093967120 1. 28338236407913 1. 1424 10™ 
1. 4 1.38143492935581 1. 38144595169699 1. 1022 10™ 
1. 5 1. 48114958957516 1. 48115941699981 9.8274 10 一 
1.6 1.58238428886651 1.58239246075638 8.1719 107" 
1.7 1.68500770343384 1.68501396173410 6.2583 107° 
1.8 1.78889432297141 1.78889853464195 4.2117 10™° 
本 1. 89392739964207 1. 89392950921118 2. 1096 10 一 
2.0 2 2 0 


由 于 数值 解 与 解析 解 很 接近 ,从 图 11.4 中 很 难看 出 它们 的 差别 ,下 面 是 作出 它们 的 差 
的 图 像 ( 见 图 11. 5) 。 


一 一 解析 解 与 数值 解 的 差 


第 11 章 常 微分 方程 边 值 问题 的 数值 解法 


11.22 非 线 性 边 值 问 题 的 差分 方法 


1. 功能 

求解 边 值 问 题 (11. 1)、(11.2) 的 数值 解 。 

2. 计算 方法 

设 y(z) 是 第 一 边 值 问题 的 解 , 把 y(zxsti) 和 >y(Cz-i) 在 z 按 Taylor 公式 展开 , 略 去 余 
项 就 可 得 到 解 边 值 问题 (11. 1)、(11.2) 截 断 误差 为 O(h) 的 差分 方程 组 : 


| >。 — Q， 
/a 二 A A Ed CIT L703 
yn 二 Pp。 


解 方程 组 (11. 17) 可 以 选用 解 非 线 性 方程 组 的 牛顿 法 。 将 (11.17) 式 中 的 mw 一 cy, yw 一代 入 
n 王 1,n 二 NN 一 1 的 方程 中 ,未 知 数 写 成 向 量 y 二 《Cy1… ,yn-1)7, 则 牛顿 法 的 迭代 公式 为 

| > —J 人 a A (11. 18) 
其 中 J(y) 是 方程 组 左 端 子 数 的 Jacobi 和 矩阵 ,可 写成 一 个 三 对 角 和 矩阵 ,第 i 行 第 j 列 的 元 
素 是 


hp Yl Yl ;二 jj 一],; 二 .NN 
| ] 十 ps (si 2 ， 1 了 lss yds slN ls 


2 + 6, ty ), jj 1 Nl 


1 i = 二 17 = 1,25"… oN 一 2 


其 中 yo 二 a, yn =p。 
每 迭代 一 步 要 解 的 三 对 角 方 程 组 是 


| 2y1 -ym athf [ny | | 
9 yy 
VU, — + 2ys — ys + hf xarys, 7 站 
J(y) : ee 9 
i YN-3 加 2yYN-? ” VN-1 二 if rw: .YN 一 2 | 
UN-—1 


| 一 十 29 一 二 天 /zw 人 ee | 
其 中 系数 和 矩阵 和 右 端 向 量 中 的 y; 均 取 为 y;*””。 解 出 vw; 后 , 令 y;” 二 y:* 十 vi;(i1 二 1,2,…， 
N 一 1), 即 完成 一 次 迭代 。 

3. 使 用 说 明 

nonldiff (fun,a,b,alpha, beta,N,nmax) 

fun 表示 rey) ,需要 符号 图 数 定 义 ， 之 表示 y 的 导数 y 。 asb 为 日 变量 的 左右 站 
点 ,alpha,beta 为 初始 值 , N 为 区 间 [La,65j 的 等 分 数 ,nw 为 最 大 迭代 次 数 。 输 出 解 的 近 
似 值 。 
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4. MATLAB 程序 


function s=nonldiff (fun,a,b,alpha,beta,N,nmax) 
if nargin<7 
nmax= 10; 
end 
h= (b- a) /N; 
for j=1:N—1 
w(j)=alpha+ j * hx (beta- alpha)/ (b-a); 
end 
k=1; 
var= findsym (fun); 
fy=diff (fun, 'y'); 
fdy= diff (fun,'z"); 
while k<= nmax 
Xxx= at+h; 
t= (w(2)-alpha)/(2* h); 
d(1)=— (2*x w(1)—-w(2)-alphat h^2x* (subs (fun, {xx,w (1),t},var))); 
g(1)=2+h^2x subs (fy, {xx,w (1),t},var); 
c(1)=-1+ (h/2) * (subs (fdy, {xx,w(1),t},var)); 
for i=2:N-—2 
xx=at+ix* h;t= (w(i+1)—-w(i-1))/(2x* h); 
f(i-1)=-1- (h/2) * (subs (fdy, {xx,w (i),t},var)); 
g(i)=2+h^2x Subs (fy, {xx,w (i),t},var); 
c(i)=-1+ (h/2) * (subs (fdy, {xx,w (i),t},var)); 
d(i)=— (2¥*x w(i)—-w(i+1)—-w(i—-1)+h’^2x (subs (fun, {xx,w (i),t},var))); 
end 
Xxx=b-— h;t= (beta—-w(N- 2))/(2x* h); 
f(N-2)= 一 1- (h/2) * (subs (fdy, {xx,w(N- 1),t},var)); 
g(N- 1)=2+h”^2x* subs (fy, {xx,w (N— 1),t},var); 
d(N-1)=— (2¥* w(N- 1)—-w(N- 2)-betath’^2x (subs (fun, {xx,w (N— 1),t},var))); 
v=tridi (f,g,c,d); 追赶 法 解 三 对 角 方程 组 , 见 11.2.1 节 ; 
W= Wi+ Vv? 
k= k+1; 
end 
for i=0:N 
XU (i+1)=a+i h; 
end 
ww= [alpha,w,betal; 


s= [x0",ww" |]; 


例 11.4 求解 边 值 问题 Y= 二 (32+27 一 yy) 1<r<3,y01)=17,y(3) 一 衬 ， 


解 ” 用 MATLAB 程序 求解 ,建立 如 下 命令 文件 和 脚本 文件 : 


function dz=exall 4(x,y,2z) 


Syms XYy 2; 
dz= (32+ 2x x^3- yx z)/8; 


存 为 exall 4. m。 


a= 1; 

b= 3; 
alpha= 17; 
beta= 43/3; 


s=nonldiff (exall 4,a,b,alpha,beta, 40,10) 


存 为 exll 4.m。 在 MATLAB 命令 窗口 调用 exll 4, 并 将 部 分 计算 结果 填 人 表 11.2 
的 第 二 列 (全 部 数据 结果 在 可 执行 程序 后 看 到 ) ,图 像 见 图 11. 6 。 


Ls nonldiff 求 得 的 解 yw bvp4c 求 得 的 解 (zi; ) 
17 1 


.75521720547762 
.77293600635110 
. 99718995534462 
.38800423812315 
.91606470924931 
.55938618266195 
.30115669974786 


DO DD ND NDP 
> CO Fr OO ‘O00 A WV ~ OO 
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图 11.6 非 线 性 差分 法 求 得 的 数值 解 


.12830042201960 
.03049437658239 
.99948019727375 
.02857252456872 
.11230148798508 
.24614846136047 
. 42634788511998 


.75545185125664 
.77332884850315 
. 99768734684667 
. 38856743994675 
. 91666459199580 
.55999956954205 
.30176429461330 
.12888631266103 
.03104655441500 
.99999105769038 
.02903845730523 
.11272140248220 
. 24652187957938 
. 42667351719498 


误差 |y(zxi)— yy; | 
0 
.3465 10™ 
.9284 10™ 
9739 10 一 
6320 107 
9988 10™ 
1339 10™ 
.0759 10™ 
8589 10 
5218 10 一 
1086 10™ 
6593 107 
1991 10™ 
sd2 TO 
.2563 107 


om en 


329 


330 常用 数值 算法 及 其 MATLAB 实 现 


续 表 
全 12.64973665581807 12. 65001203294172 2.7539 107 
2.0 12.91363827559598 12. 91386037666472 2 2210 10 
"| 13.21577274902304 13. 21593908115546 1.6633 107 
2. 8 13.55418578981121 13. 55429530818083 1.0952 107 
2.9 13. 92719267575279 13. 92724618200477 5. 3506 10™ 


3. 0 14. 333333333 14. 33333333333 0 


用 MATLAB 的 函数 bvp4c 计算 。 


function dy=exam]ll 4(x,y) s 将 边 值 问题 定义 为 微分 方程 组 
dy= zeros (2,1) ; 


dy (1)=y (2); 
dy (2)= (32+ 2% x^3-y(1) * y(2))/8; 


存 为 examll 4. m。 


function res=examll 4bv(ya,yb) % 边 界 条 件 函 数 
res= [ ya(1)-17,yb (1)- 43/3]; 


存 为 examll 4bv. m。 


用 阴 数 bvp4c 求 解 的 程序 
solinit=bvpinit(linspace (1,3,20),[43/3 17]); 
sol=bvp4c (@ examll] 4,@ examll 4bv,solinit) 
xx= linspace (1, 3,20); 

yy= deval (sol, xx) 

figure 

ls YUE eb i 


存 为 examplell 4.m。 在 MATLAB 命令 窗口 调用 examplell 4, 并 将 部 分 计算 结果 
填 和 人 表 11. 2 的 第 三 列 (全 部 数据 结果 在 可 执行 程序 后 看 到 ) ,图 像 见 图 11. 7。 


半 . 
六 帮 
六 中 六 
溃 刘 米 米 半 六 六 


1 12 14 16 1.8 2 22 24 26 28 3 


11.7 bvp4c 程序 求 得 的 数值 解 


偏 微分 方程 的 数值 解法 


则 已 小 


应 用 科学 物理、 工程 领域 中 的 许多 问题 可 建立 偏 微 分 方程 的 数学 模型 。 由 于 大 多 数 偏 
微分 方程 的 理论 解 很 难得 到 或 不 能 解析 地 表示 出 来 ,因而 求 其 数值 解 就 显得 尤为 重要 。 

数值 求解 偏 微 分 方程 定 解 问题 的 主要 方法 有 两 种 : 差分 法 和 有 限 元 法 。 它 们 的 共同 特 
点 是 将 连续 的 偶 微 分 方程 进行 离散 化 ,从 而 用 适当 形式 将 其 化 为 线性 代数 方程 组 ,并 通过 求 
解 线 性 代数 方程 组 给 出 其 数值 解 。 本 章 主要 讨论 有 限 差 分 法 ,它们 以 函数 的 一 阶 导 数 和 二 
阶 导数 的 近似 公式 为 基础 。 

在 本 章 我 们 考虑 一 般 的 二 阶 偏 微分 方程 : 


927 927 .du [> ou 2 
人 A th (12.1) 
i yy Ey, 
边界 条 件 为 
C12..2) 


MU(Zoyy) = br (yy), Mryy) = br (y), 
这 些 偏 微分 方程 可 分 成 三 类 . 

如 果 B? 一 4AC 二 0, 称 为 椭圆 型 方程 ; 

如 果 B? 一 4AC = 0, 称 为 抛物 型 方程 ; 

如 果 B? 一 4AC 二 0, 称 为 双 曲 型 方程 。 


121 顶 圆 型 万 程 


第 见 的 椭圆 型 偏 微分 方程 包括 Laplace 方程 .Poisson 方程 和 Helmholtz 方程 。 
Helmholtz 方程 的 形式 为 


92u 
ar:’ 


定义 在 区 域 D={(z,y)|zo 志 z+<xj ,yo 二 yyy) 上 ,具有 边界 条 件 
U(XT,Yy0) = by (rx), MT Yyr) = by (Xx), 


人 by (xX), u(X,yr) = by (ZX), 


a? 
ta: + er uz,y) Urs (12. 3) 


(12.4) 
u(xXo »Yy) = bro (Vy)， JA »Yy) = br (y)o 
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如 果 (12. 3) 式 中 的 g(Cz,y) 王 0, 且 fxz,y) 王 0, 则 称 (12. 3) 式 为 Laplace 方程 ;如 果 (12. 3) 
式 中 的 g(x,y) 二 0, 则 称 (12.3) 式 为 Poisson 方程 。 

为 了 应 用 差分 方法 ,将 区 域 D 分别 沿 xz 轴 方 同 、y 轴 方 向 M 等 分 和 NN 等 分 , 步 长 分 别 
为 Ar 二 (zy 一 Xo)/M,Ay 二 (yy 一 yo)/N ,然后 用 三 点 二 阶 中 心 差分 代 兰 二 阶 导 数 ， 

qul(x,y) A Uitl 一 Ui, 十 Wi, qu(x,y) A UH LU TT Ui 

3 有 FE ， ay? eo, 2 

其 中 zj; 二 zo 十 jAx,yi; 二 yo 十 iAy sui 二 u《(Zxj;，,yi)， 因 此 ,对 每 个 内 点 (zj;,yi) ,1 二 i 二 NN 一 1， 
1 二 j 硅 M 一 1, 我 们 得 到 差分 方程 


Az Ay’ 2 Tg = fy? C2 


其 中 Ui,j; —=U(Tj; Vi) 9 Bi = ET i) fi,; = fri yi) 为 了 采用 迭代 法 ,我 们 需 将 差分 方程 
和 边界 条 件 改写 成 如 下 形式 : 
Ui,; = ry(Uistl TT Wisi) TT rz ity TT wi,;) TT ry (Bijuis; — fi;)， (12.6) 
Ui,o = bro (Yi), UM = br(yi), Uo,; = bw(Xi;), un,; = by (Xj;), (12.7) 


一 


其 中 

= 
2(AT? 十 Ay:) >” 2(Az: 十 Ay:) 3 2(Az 十 Aw)” 
可 取 边 界 值 的 平均 值 作 为 u,; 的 初始 值 。 


(12. 8) 


rz 


1. 功能 

用 差分 法 求解 椭圆 型 偏 微分 方程 (12.3)、(12.4) 的 数值 解 。 
2. 计算 方法 

采用 迭代 法 ,用 (12.6) 式 一 (12. 8) 式 求解 。 

3. 使 用 说 明 


[u,x,y]=helmtz (f,g,bx0,bxf,by0,byf,Dom,M,N,tol,maxiter) 


f,g 及 边界 限 数 bx0 等 需要 用 inline 负数 或 M 文件 定义 ,求解 区 域 Dom 王 [xzo,zryyo， 
yfj,M= 二 x 轴 方 同 的 节点 数 , N= 二 y 轴 方 各 的 节点 数 ,tol 二 容 差 ,maxiter 二 最 大 迭代 次 数 。 
输出 解 的 近似 值 。 

4. MATLAB 程序 


function [u,x,y]=helmtz (f,9g,bx0,bxf,by0,byf,Dom,M,N,tol,maxiter) 
x0= Dom (1) ， 

xf= Dom (2) ， 

Y0= Dom (3); 

yf= Dom(4) ; 

dx= (xf— x0) /M; 

X= Xx0+ [0:M] 关 dx; 
dy= (yf- y0) /N; 

y= yO0+ [0:N] " * dy; 
边界 条 件 

for m=1:N+1 


u(m [1,M+ 1])= [feval (bx0,y (m)) ,feval (bxf,y (m))]; 
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end s 左 右边 
for n=1:M+1 

u([l,N+1],n)= [feval (by0,x(n));feval (byf,x(n))]; 
end s 底 /上 
s 边 界 的 平均 值 作为 初始 值 
bvaver= sum([sum(u(2:N, [1,M+ 1])), 
sum(u([l,N+1],2:M) ')]); 
u(2:N,2:M)=bvaver/ (2* (M+N- 2)); 
for i=1:N 

for j=1:M 

F(i,j)= feval (f,x(j),y (i)); 

G(i,J)=feval (g,x(I),y(1)); 

end 
end 
dx2= dx * dx; 
dy2=dy* dy; 
dxy2=2* (dx2+ dy2); 
rx= dx2/dxy2; 
ry= dy2/dxy2; 
rxy= IX* dy2; 


for itr=1:maxiter 


for j=2:M 
for i=2:N 
Es 
+rxy¥* (G(i,j) * u(i,j)-F(i,j)); SEq. (12.6) 
end 
end 


if itr> 1& max (max (abs (uu0)))<tol 
break; 
end 
uO0=u; 


end 


例 12.1 求解 在 区 域 R=={(z,y)10 三 x 三 4,0 三 y 三 4) 内 的 Laplace 方程 Vu 二 0 的 近 
似 解 ,边界 值 为 
u(0,y) 一 是 一 cosy， u(4,y) 一 ercos4 一 ecosy， 
U(X,0) = cosT—e€*, u(x,4) 一 ecoszr 一 ercos4。 


解 建立 f,g 及 边界 图 数 2z0 等 脚本 文件 ,然后 代入 程序 计算 。 


f=inline('0', 'x', 'y'); 

g=inline('0','x','y'); 

x0= 0;xf= 4;M= 20; 

y0= 0; yf= 4; N= 20; 

bx0= inline('exp(y)— cos(y)','y'); 

bxf= inline('exp(y) * cos (4)— exp(4) * cos (y) ', 'y'); 


334 常用 数值 算法 及 其 MATLAB 实 现 


by0= inline ("cos (x)— exp (x)', 'x"'); 

byf= inline('exp(4) * cos (x)— exp (x) 关 cos (4)', 'x"); 

D= [x0 xf yO yf]; 

maxiter= 500; 

tol= le— 6; 

[U,x,y]=helmtz (f,g,bx0,bxf,by0,byf,D,M,N,tol,maxiter) 
clf,mesh (x,y,U),axis([0 4 0 4- 60 60]) 


存 为 ex12 1.m。 在 MATLAB 命令 窗口 调用 ex12 1, 有 如 下 结果 (因为 数据 较 多 , 故 
略 去 ,全 部 数据 结果 可 在 MATLAB 命令 窗口 执行 ex12_1 后 看 到 ,此 处 只 给 出 图 像 结 果 ( 见 


图 12. 1))。 
12.1 差分 法 求 得 的 =u(zx，,y) 
2 2 
例 12.2 求解 Poisson 方程 : I +x,0<r<2,0<y<l ,边界 条 件 为 


u(0,y) = 0， u(2,y) = 2e’， 0 过 < 1， 
U(XT0) = rx, VCzy1) 一 er， 0 入 工友 2。 
解 ” 建立 如 下 脚本 文件 。 


f= inline ('xx exp(y) ', 'x', 'y'); 
oi ah 

x0= 0;xf= 2;M= 6; 

yO0= 0; yf= 1;N= 5; 

bx0= inline('0','y'); 

bxf= inline('2* exp(y)','y'); 
by0= inline('x', 'x'); 
byf=inline('xx* exp(1)"','x'); 
D= [x0 xf yO0 yf]; 

maxiter= 500; 

tol= le 一 8; 

[U,x,y]=helmtz (f,g,bx0,bxf,by0,byf,D,M,N,tol,maxiter) 


clf,mesh (x,y,U),axis([02010 6]) 


存 为 ex12_2. m。 在 MATLAB 命令 窗口 调用 ex12_2, 将 上 述 程 序 计算 的 结果 ui,; 填 入 
表 IZ. 1( 图 像 为 图 12 a 此 方程 的 精确 解 为 wx(zyy) 一 Ze ,将 Wi 与 Mi ,yi;) 比较, 可 求 得 
其 绝对 误差 , 详 见 表 12. 1。 


. 40726460624 
. 49748323107 
. 60759606791 
.74200705900 
. 81452373424 
.99495755459 
.21518316070 
. 48400852864 
.22176619538 
.49240470531 
.82274269744 
. 22599269399 
.62896367616 
.98977828918 
. 43022654962 
. 96792824893 
.03604231766 
. 48695838184 
. 03750549703 
. 70972406398 


表 12.1 
Xi 
.333333 
.333333 
.333333 
.333333 
.666667 
.666667 
.666667 
.666667 


.333333 
.333333 
.333333 
.333333 
.666667 
.666667 
.666667 
.666667 


EO OO OO OO OO OO OO 


0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


co DW 0 0 本 0m 本 D000% 二 


OO OO DD ND ND ND DO OO OO OO OO OO 


0 
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. 4071342527 
. 4972748993 
. 6073729333 
.7418469760 
. 8142685053 
. 9945497987 
.214745867 
. 483693952 
. 221402758 
. 491824698 
. 822118800 
. 225540928 
.628537011 
. 989099597 
. 429491733 
. 967387904 
.035671263 
. 486374497 
.036864667 
. 709234880 


12.2 差分 法 求 得 的 w= 二 u(x,y) 


例 12.3 求解 Helmholtz 方程 : 


gq*u(x,y) 
下 


q*ul(x,y) 
9y’ 


二 4n(x 十 yulx,y) = 4rcos(r(z 十 多))， 


|z — ul x; » yi) | 


> ON ND 一 ~ 


.3035354 10™ 
.0833177 107 
.2313461 10™ 
.6008300 107™ 
.5522894 10 一 
.0775589 107 
. 3729370 107 
.1457664 10 
.6343738 10™ 
. 8000731 10™ 
.2389744 10™ 
.5176599 10™* 
.2666516 10 
.7869218 10™ 
.3481662 10 
. 4034493 10™ 
.7105466 10 
.8388484 10™ 
.4083003 107 
.8918398 10” 
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边界 条 件 为 
u(0,y) = sin(xy:), ul(l,y) = sin(x(y’ 十 1)),， 
u(X,0) 一 sin(rz )， ul(z,l1) = sin(x(x’ 十 1))。 
解 ”建立 如 下 脚本 文件 ,然后 运行 程序 计算 。 


f=inline('4x*x pix cos(pix (xX^2+Y^2)) XI YI 7 
gjinline('4x< pix (X^2+Y^2) XIYI) ; 

x0= 0;xf= 1;M= 40; 

y0= 0; yf= 1;N= 40; 

bx0= inline('sin (pi * y^2)', 'y'); 
bxf=inline('sin(pix (y^2+1))"','y'); 

by0= inline('sin (pi ¥* x^2)"', 'x'); 
byf=inline('sin(pix* (x^2+1))"','x"'); 

Dom= [x0 xf yO0 yf]; 

maxiter= 500;tol= le— 8; 

[U,x,y]=helmtz (f,g,bx0,bxf,by0,byf,Dom,M,N,tol,maxiter) 
clf,mesh(x,y,U),axis([0 1 0 1-1 1]) 


存 为 ex12_3. m。 在 MATLAB 命令 窗口 调用 ex12_3, 有 如 下 结果 (因为 数据 较 多 , 故 
略 去 ,全 部 数据 结果 可 在 MATLAB 命令 窗口 执行 ex12_3 后 看 到 ,此 处 只 给 出 图 像 结 果 ( 见 
图 12. 3))。 


0.2 


0 0 


12.3 差分 法 求 得 的 w= 二 u(x,y) 


i122 抛物 型 方程 


最 简单 的 抛物 型 方程 是 一 维 热传导 方程 ,表示 为 


可 到 人 元， A qul(zr,t) 
ot 9x 


其 中 A 二 0, 初 始 条 件 为 


加 0 


人 
人 
> 


(12.9) 
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二 (12. 10) 
边界 条 件 
ul(0,t) = ts u(xr,t) = br (1)， 有 C2 49 
1221 显 式 向 前 Euler 方法 2 


将 区 间 [0, zy]M 等 分 , 步 长 t= 二 zj/M, 区 间 [0， 六 
TJN 等 分 , 步 长 At= 二 T/N, 如 图 12.4 所 示 。 从 最 下 面 
的 行 (== = 二 0) 开 始 , 初 始 值 为 u(zi; ,ti) 二 f(x;)。 下 面 


1 
介绍 在 连续 行 {u(xzi,t;):i=1,2,…,M 十 1} 内 ,其 中 j= 0 
2,3,… ,NN 十 1 ,求解 网 格 节点 w(x,t) 的 数值 近似 值 的 12.4 ”在 区 域内 求解 u(x,i)== 
方法 。 Ar (zt 的 网 格 
求解 u,(ZX,t) 和 (x,1) 的 差分 公式 为 
Ee A HE OA), (12. 12) 
人 ee tuztArt) OAr), (12.13) 
将 (12.12) 式 和 (12.13) 式 中 的 OC(At) 和 OCAzx? ) 略 去 ,并 用 近似 值 wi,; 代 替 u(x;,t;), 则 有 
二 Ui,j Ee A Ej 一 十 ziHHly ， (12 14) 


将 一 A 大和 5 代入 (12.14) 式 ,可 得 到 显 式 向 前 差分 公 3 


Ui,j+1 一 (1 一 2r)u;,; TT rw Wnts C12 15) 
设 7 行 的 近似 值 Ui—1,) » Ui,j ;iti 已 知 ,通过 (12. 15) 式 可 得 到 网 格 中 的 第 7 十 1 行 Ui,j+1 0o 注 


意 显 式 向 前 差分 公式 (12. 15) 的 稳定 是 > 满足 0 过 /过 土 ， 


2 

1. 功能 

用 显 式 向 前 差分 法 求解 抛物 型 偏 微 分 方程 (12.9) 一 (12.11) 的 数值 解 。 
2. 计算 方法 

采用 迭代 法 ,用 (12. 15) 式 求解 。 

3. 使 用 说 明 


[u, Xx, tt]= forwdparab (A, xf,T, fun, bx0, bxf,M, N) 


Xf 为 x 变化 范围 的 右 端 点 ,TT 为 t 变化 范围 的 右 端 点 ,初始 条 件 ( 函 数 )fun 及 边界 限 数 
bx0 ,bxf 需要 用 inline 男 数 或 M 文件 定义 ,MM 二 xz 轴 方 同 的 节点 数 ,N 二 yy 轴 方 向 的 节点 数 。 
输出 解 的 近似 值 。 

4. MATLAB 程序 


function [u,xx,tt]= forwdparab (A,xf,T,fun,bx0,bxf,M,N) 
dx= xf/M; xx= [0:M] ' * dx; 

dt=T/N;tt= [0:N] * dt; 

for i=1:M+1 


u(i,1)= feval (fun, xx (1)); 
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W(x 


end 
for j=1:N+1 
u([l,M+1],j)= [feval (bx0,tt (]) ) ;feval (bxf,tt(j]))]; 
end 
r=Ax dt/dx/dx; 
sh bh sa We 
disp(' 此 步 长 不 满足 稳定 条 件 , 请 重新 选择 步 长 ( 即 M,N 的 值 )'); 
end 
for j=1:N 
for i=2:M 
ul(i,j+l)=zx (u(i+1l,j)+u(i-1,j))+ (1-2x* r) x*u(i,j); sEq. (12.15) 
end 


end 


dCwad). uwst) 


例 12.4 考虑 热传导 方程 一 一 了 一 0,0 委 z 委 1,0 迄 1 委 0.5, 初 始 条 件 为 


,0) 一 sin(rZz) ,0 二 ZX 二 1, 边 界 条 件 为 u(0,1t)= 二 0,ul(zy,t)==0,0 二 i。 
此 问题 的 解 是 w(t) 二 e-*tsin(xz), 分 别 对 NM 一 10, 和 三 500( 此 时 ,Az 王 0. ] ,At 一 


0.001,r 二 0.1) 和 MM 二 10, N= 二 50( 此 时 ,Ax 二 0.1,At 二 0.01,r 二 1), 用 向 前 差分 法 求 1 一 0.5 
时 的 近似 解 。 


解 ”建立 如 下 脚本 文件 : 


A= 1;xf=1;T=0.5;M= 10;N= 500; 
fun=inline('sin(pix x)','x'); 
bx0= inline('0', 't"'); 

bxf= inline('0','t"'); 


[u,x,t]= forwdparab (A, xf,T, fun, bx0, bxf, M,N) 


存 为 ex12 4. m。 在 MATLAB 命令 窗口 调用 ex12 4, 将 部 分 结果 x(i,501) 填 人 表 12. 2 


中 ,图 像 结果 见 图 12. 5。 更 改 ex12_4. m 中 的 N= 50, 再 次 执行 ex12_4, 将 部 分 结果 
ul(i,51) 填 入 表 12. 2 中 ,并 计算 u(x;,0.5) 的 值 ,由 于 此 处 的 r=1 不 满足 稳定 条 件 , 所 以 此 
处 算得 的 值 u(i,51) 与 精确 值 w(x; ,0. 5) 的 误差 很 大 , 见 表 12. 2。 


表 12.2 


a ey Pe ul(i,501) |ulx; ,0. 5) u(i,51) |ulCx; ,0.5) 一 
9。 A 人 Ai 一 0. 001 —u(i,501) | Ai 一 0. 01 ul(i,51)| 
0 


~ PP PPPePPee 


0 0 0 0 

1 . 0022224142 0. 0022590306 3. 66164 10™ .38431872 10° 0. 384319 10° 
2 . 0042272830 0.0042969315 6. 96485 10™ .7270430 10° 0.72704 10° 
3 .0058183559 0. 0059142189 9. 58630 10™ .99216768 10° 0. 992168 10° 
4 . 0068398875 0.0069525812 1. 12694 10 .15373957 10° 1. 153740 10° 
9 .0071918834 0.0073103765 1. 18493 107 .19839883 10° 1. 198399 10° 
6 .0068398875 0. 0069525812 1. 12694 10 一 .1257490 10° 1. 12575 0 
7 . 0058183559 0.0059142189 9. 58630 10™ .94687804 10° 0. 946878 10° 
8 .0042272830 0. 0042969315 6. 96485 107™° .6817534 10° 0. 68175 10” 
号 .0022224142 0. 0022590306 3. 66164 10™ .35632818 10° 0. 356328 10° 
0 0 0 0 
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0.5 


0.1 
0 0 


12.5 7 一 (0. 1 , 回 前 差分 法 


1222 隐 式 向 后 Euler 方 法 
如 果 用 回 后 差分 公式 , 则 有 


Uij Wijl _ A Ui-1l,;} Zui,j Uitl1,j , 12.16 
At Ar 
Ui, j—1 =— ruii,; (1 2r) uu;,; Tui,j (12 17) 


其 中 r 一 A 人 5,i=1,2,…,M 一 1。 
如 果 x(0,7J),xGM,7) 可 由 边界 条 件 取 得 , 则 上 述 方程 可 写 为 线性 方程 组 : 


四 二 : ul(l,7) 
= lo 全 : u(2,]) 
= 12 ul(3,]) 
加 - —¥r MLCM 一 2,7) 
: 一 矿工 十 27/ NGCM 1;7) 
| 1 JEetOy) ] 
u(2,7— 1) 
| ul(3 oi 
o (12. 18) 
| iM—2,1—1) | 
u(M—1,;7— 1)+ru(M,ji) 


1. 功能 

用 隐 式 辐 后 差分 法 求解 抛物 型 偏 微 分 方程 (12.9) 一 (12. 11) 的 数值 解 。 
2。 计 算 方 法 

求解 线性 方程 组 (12. 18) 。 

3. 使 用 说 明 


[u, xx, tt]=backdparab (A, xf,T, fun, bx0, bxf, M, N) 
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Xf 为 x 变化 范围 的 右 端 点 ,TT 为 t 变化 范围 的 右 端 点 ,初始 条 件 ( 函 数 )fun 及 边界 图 数 
bx0,bxf 需要 用 inline 困 数 或 M 文件 定义 ，M= 工 轴 方 向 的 节点 数 ,N=y 轴 方 回 的 节点 
数 。 输 出 解 的 近似 值 。 

4. MATLAB 程序 


function [u,xx,tt]=backdparab (A,xf,T,fun,bx0,bxf,M,N) 
dx= xf/M; 
xx= [0:M] " 关 dx; 
dt=T/N;tt= [0:N] GE> 
for i=1:M+1 
u(i,1)= feval (fun,xx (1)); 
end 
tor EN 
ul([1,M+1],])= [feval (bx0,tt (]) ) :zfeval (bxf,tt (j))]; 
end 
r=Ax dt/dx/dx; 
aa (1:M-— 2)=—Ir; 
CC= aa; 
bb(l1:M-1)=1+2x* Ir; 
for j=2:N+1 
dqd= [u(2,j-1)+r*u(l,j);u(3:M- 1,j-—-1);r* ul(Mt1,j)+u(M,j—1)]; 
u(2:M,j)=tridi (aa,bb, cc,dd); 追赶 法 解 三 对 角 方 程 组 ,参见 11.2 节 


end 


1223 Crank-Nicholson 方 法 


由 John Crank 和 Phyllis Nicholson 发 明 的 隐 式 差分 格式 是 基于 求解 网 格 中 在 行 之 间 
的 点 (r,t 十 At/2) 处 的 方程 (12.9) 的 数值 近似 解 。 而 且 求 解 w(xz,t 十 At/2) 的 近似 值 公式 是 
从 中 心 差分 公式 得 到 的 ,表示 为 


ES Er A OCA2)。 (12. 19) 


(zt 十 AL/2) 的 近似 值 是 xz 和 zx (Cz:t 二 Ab 近似 值 的 平均 值 ,精度 为 OC(Az2 ) ， 


7 (x1 = 于 =a Avstt A — 2uCxst TT Dt) -wlio Mrot ot AML) 


十 KZ 一 Az:i) 一 2xkCzt) 十 KG 十 Az:i)) 十 OCAz ) 。 (12..20) 

将 (12.19) 式 、(12.20) 式 代入 (12.9) 式 ,并 忽略 误差 项 O(Ar*) 和 OC(Ax?), 然 后 可 得 到 采用 
符号 ui,; 二 ul(Xi ,tj) 表 示 的 隐 式 差分 公式 : 

mm nt A (12. 21) 


其 中 一 A 人 一 1,2，，M 一 1。 (12. 21) 式 右边 的 项 都 是 已 知 的 ,因此 可 以 写成 矩阵 


形式 
4r cf = B, (12, 22) 
其 中 
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2 二 27 一 小 
| 一 全 本 梧 二 总 六 rr 
Py 一 依 pe GHD 
| : 22r —r ul(M—2,i; 十 1) 
: fr wim ls Tl1) 
ru(0,7) 十 rLu《l0,7 一 1) 十 uC2,7 一 1)j] 十 (2 一 2r)u(l1,;7 一 1) 
| r[x( 人 (1 一 1) 十 x(3 一 1)] 十 (2 一 2r)x(2 一 1) 
| r[zx(2, 一 1) 十 zx(4 一 1)] 十 (2 一 2r)x(3 必 一 1) 
rLxCOM 一 3 一 1) 十 zxCOM 一 1 一 1)] 十 (2 一 2r)xCOM 一 2 一 1) 
re 
1. 功能 
用 Crank-Nicholson 法 求解 抛物 型 偏 微分 方程 (12.9) 一 (12. 11) 的 数值 解 。 
2. 计算 方法 
求解 线性 方程 组 (12. 22) 。 
3. 使 用 说 明 


[u, xx,tt]= crank nich (A,xf,T,fun,bx0,bxf,M,N) 


Zr 为 工 变 化 范围 的 右 端 点 , 工 为 上 变化 范围 的 右 端 点 ,初始 条 件 ( 男 数 )fun 及 边界 果 数 
bx0 ,bxf 需要 用 inline 负数 或 M 文件 定义 ,M= 工 轴 方 向 的 节点 数 ,N 三 > 轴 方 向 的 节点 数 。 


输出 解 的 近似 值 。 
4. MATLAB 程序 


function [u,xx,tt]=crank nich (A,xf,T,fun,bx0,bxf,M,N) 
dx= xf/M; 
Xxx= [0:M] " 关 dx; 
dt= T/N; 
tt= [0:N] * qt; 
for i=1:M+1 

u(i,1)= feval (fun,xx (i1)); 
end 
for j=1:N+1 

ul([1,M+1],])= [feval (bx0,tt (j]));feval (bxf,tt(j]))]; 
end 
r=Ax dt/dx/dx; 
aa (1l:M-— 2)=-—Ir; 
CCc= aa; 
bb(l1:M- 1)=2+2x* Ir; 
for j=2:N+1 

dd= [r*x u(l1,]j]) ;zeros(M- 3,1);rx* u(M+t1,])] 

TE t= A Us 
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u(2:M,j)=tridi (aa,bb, cc,dd); 追赶 法 解 三 对 角 方程 组 ,参见 11.2 节 


end 


9 gq:ul(r, 
例 12.5 考虑 热传导 方程 于 守 一 全 生气 二 一 0,0<<z 壹 1,0<1<0.5, 初 始 条 件 为 


ar 
u(X,0) 二 sin(xx) ,0 委 z 委 1, 边 界 条 件 为 wx(0,ti 一 0,xCzryti) 一 0,0<<t。 
此 问题 的 解 是 u(r) =e "sin(nx) ,对 M 王 10,N 王 50( 此 时 ,Az 一 0. 1,At=0.01,r=1)， 
分 别 用 向 后 差分 法 和 Crank-Nicholson 法 求 :一 0. 5 时 的 近似 解 。 
解 在 例 12.4 中 和 曾 求 解 过 此 题 ,由 于 它 不 满足 同 前 差分 法 的 稳定 条 件 , 所 以 求 出 的 数 
值 与 精确 值 的 误差 很 大 。 现 在 用 向 后 差分 法 和 Crank-Nicholson 法 再 次 求解 。 建 立 如 下 脚 
本 文件 : 


A= 1;xf= 1;T=0.5;M= 10;N= 20: 

fun=inline('sin(pix* x)','x"'); 

bx0= inline('0', 't"'); 

bxf=inline('0','t"); 

[u2,X,t]=backdparab (A, xf,T,fun,bx0, bxf,M,N) 

clf,mesh (t,x,u2) 

figure 

[u3,x,t]= crank nich (A,xf,T,fun,bx0,bxf,M,N) 

clf,mesh (t,x,u3),axis([ 0,0.5,0,1,0,1]) 

uu=inline('sin (pi x* x) *x exp(-pi^2x*t)"','x','t"'); 精确 解 

errl=uu (x,t)— u2; 

figure 

clf,mesh (t,x,err1) ss 精确 值 与 向 后 差分 法 求 的 近似 值 的 误差 

err2= uu (x,t)— u3; 

figure 

clf,mesh (t,x,err2) 精确 值 与 Crank— Nicholson 法 求 的 近似 值 的 误差 

存 为 ex12_5. m。 在 MATLAB 命令 窗口 调用 ex12_5, 可 看 到 全 部 数据 ,由 于 数据 
较 多 ,故此 处 略 去 大 部 分 数据 。 只 将 部 分 结果 u(i,51) 填 入 表 12. 3 中 ,并 计算 u(x;， 
0.5) ,结果 如 表 12. 3 所 示 。 由 于 隐 式 向 后 差分 法 和 Crank-Nicholson 法 是 无 条 件 稳定 的 ， 
所 以 此 处 求 得 的 值 与 精确 比较 接近 ,而 且 Crank-Nicholson 法 的 精度 更 高 ( 见 图 12. 6 一 
图 12. 9) 。 


表 12.3 

uCz ,0.5) ul(i,51) ulead. 5) 一 Ci 51), Am0 01 ja 

i (精确 值 ) At=0. 01 wis51) | (Crank_Nicholson 法 ) 9 | 
(向 后 差分 法 ) (误差 ) (误差 ) 

0.0 0 0 0 0 0 
0.1 0.0022224142 | 0.0028980166 6.756024 10™ 0.0023051234 8. 27092 10™ 
0. 2 0. 0042272830 | 0.0055123552 | 0.00128507 0. 0043846052 1 .57322 .10 一 
0. 3 0. 0058183559 | 0.0075871061 0. 00176875 0. 0060348913 2.165354 10™ 


0.4 0. 0068398875 | 0.0089191781 | 0.00207929 0. 0070944403 2. 545528 10 


Xi 


0.5 
0.6 
0.7 
0.8 
4 三 
1.0 


u(x sO, 3 
(精确 值 ) 


0. 0071918834 
0. 0068398875 
0. 0058183559 
0. 0042272830 
0. 0022224142 
0 


ul(i,51) 

At™0.0l 
(向 后 差分 法 ) 
0.0093781789 
0. 0089191781 
0. 0075871061 
0.0055123552 
0. 0028980166 
0 


|w(zxziy 0.5) 一 
ul(i,51) | 
(误差 ) 
0. 00218630 
0. 00207929 
0. 00176875 
0. 00128507 
6.756024 10 一 
0 
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ul(i,51) ， At 二 0. 01 
(Crank-Nicholson 法 ) 


0.0074595359 
0. 0070944403 
0. 0060348913 
0. 0043846052 
0. 0023051234 
0 


续 表 


|x(ziy0.5) 一 

ul(i,51) | 

(误差 ) 
2.070525 10™ 
2.545528 107 
2.165354 10 
1.573222 10™ 
8. 27092 10™ 
0 


12.7 Crank-Nicholson 法 
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12.9 精确 值 与 Crank-Nicholson 法 求 的 近似 值 的 误差 


1224 二 维 抛 物 型 方程 


为 一 个 抛物 型 偏 微分 方程 的 例子 是 二 维 的 热传导 方程 ,表示 为 


9u(xX,y,t) A 9 MUCz,y:t) | 9 u(r, yD) 
ot qr’ 9y’ 


Zo 和 7z 委 Zry 委 yy 委 y ,0 委 1 委 T。 初 始 条 件 为 
(zy yy0) = 三 Zyy)， 
边界 条 件 
U(Xos yt) = bio (yst), MTZryyoti) = br yt), 
CTZyyost) = by (Tt), u(x,yt) = by (r,t)o 


C12..23) 


(12.24) 


(12. 25) 


同 Crank-Nicholson 法 一 样 , 一 阶 导 数 用 中 点 在 (& 十 41)/2 的 三 点 中 心 差分 代 蔡 ,u, 和 


uw 由 三 点 中 心 差分 代 蔡 , 则 有 
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Ui,jtl 2ut 十 wi ,j—1 U1 2us,; 十 UF 1, | 2 ur ut 
A 二 全 十 风机 作 由 (12. 26) 
它 可 写 为 如 下 的 差分 公式 : 
(ms 十 2 ) 十 (1 十 2r,)ust! -一 je Cn 十 win ) 十 (1 2 es 9 7 = lss = 1» 


C12. 21a) 
一 EU 
(12. 27b) 
其 中 ,r， 一 和, 一 和,Ar= 一 A A ,At 一 广 。 
1. 功能 
求解 二 维 抛物 型 偏 微分 方程 (12. 23) 一 (12. 25) 的 数值 解 。 
2. 计算 方法 
求解 线性 方程 组 (12. 27) 。 
3. 使 用 说 明 


[u, xx, yy tt]= heat2parab (A, Dom, T, fxy0, bxyt, Mx,My,N) 


Zzo ,Xf 为 工 变化 范围 的 左右 端点 ,yoyyyr 为 y 变化 范围 的 左右 端点 ,Dom 王 [xo ,xy ,yo， 
ytj ,了 为 t 变化 范围 的 右 端 点 ,初始 条 件 ( 胃 数 )fxy0 及 边界 限 数 bxyt 需要 用 inline 子 数 或 
M 文件 定义 ,Mz 二 zx 轴 方 向 的 节点 数 ,My 二 yy 轴 方 向 的 节点 数 , N= 二 t 轴 方 向 的 节点 数 。 输 
出 最 后 时 刻 解 的 近似 值 。 

4. MATLAB 程序 


function [u,xx,yy,tt]=heat2parab (A, Dom,T,fxy0,bxyt,Mx,My,N) 

dx= (Dom (2)— Dom(1) ) /Mx; 

xx= Dom(1)+ [0O:Mx] 关 dx; 

dy= (Dom(4) - Dom (3) ) /My; 

yy= Dom(3)+ [0O:My]" * dy; 

dt= T/N; 

初始 化 

for j=1:Mx+1 
for i=1]:Myt+1 

u(i,j)= fxy0 (xx (j) ,yy (i)); 

end 

end 

rx=Ax dt/ (dx* dx); 

ry=Ax dt/(dy* dy); 


aay (1:Mx— 2)=— ry; 名 (12.27a) 式 
CCy= aay; 

bby(l1:Mx— 1)=1+2x ry; 

aax(1:My- 2)=— rx; gs (12.27b) 式 
CCX 一 已 己 区 7 


bbx (1:My— 1)=1+2x rx; 
for k=1:N 
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uul=u; 
tt=kx dt; 
for i=1:My+1 
u(i,1)= feval (bxyt, xx (1) ,yy (i) ,tt); $s 边界 条 件 
u(i,Mxt+ 1)= feval (bxyt,xx (Mx+ 1),yy(i),tt); 
end 
for j=1:Mx+1 
u(1,j)=feval (bxyt,xx(j),yy(1) ,tt); 
u(Myt+1,j)= feval (bxyt,xx(J),yy (My+ 1),tt); 
end 
if mod(k,2)==0 
for i=2:My 
jj=2:Mxz; 
ddy= [ry* u(i,1) zeros(l1,Mx— 3) ry*x* ul(i,Mxt+ 1) ]…， 
.+res nl(=L Dotl I tt (l= 2 7 * ol) 


u(i,jj)=tridi (aay,bby,ccy,ddy) '; 委 (12。.27al) 式 
end 
else 
for j=2:Mx 
ii=2:My; 
ddx= [rx * u(l1,]J]);zeros (My-— 3,1) ;rx* u(Myt+1,]j)]*** 
.Ty (TO tT {= 2 ry (ll)s 
u(ii,j)=tridi (aax, bbx,ccx,ddx); 当 (12.27b) 式 
end 
end 


end 


9 sa 二 oa? ss Vy, 9? “9 9 
例 12.6 考虑 方程 “二 一 10 + ,0<r<r2,0<y< 


r/2,0 委 要 100。 初 始 条 件 为 wx(z,y'0) 王 sinz 十 siny, 边界 条 件 : 当 x=0,xX==x/2,y= 二 0， 
y 二 x/2 时 ,u(x,y,t) 二 e osinz 十 siny)。 取 MM, 二 10,M, 二 10,N 二 20, 求 时 刻 T= 二 100 
时 的 近似 解 。 

解 ” 此 问题 的 精确 解 就 是 u(x,y,?) 二 e "Csinz 十 siny)。 建 立 如 下 脚本 文件 : 


A= 0.00001; 

fxy0= inline('sin(x)+ sin(y)','x','y'); 
bxyt=inline('exp(-0.00001 *x t) * (sin(x)+sin(y))','x','y','t"); 
Dom= [0 pi/2 0 pi/2]; 

T= 100; 

Mx= 10; 

My= 10; 

N= 20; 

[u,x,y,t]= heat2parab (A, Dom,T, fxy0, bxyt,Mx,My,N) 

mesh (x, y,u) ,axis ([0 pi/2 0 pi/2 0 2]) 


存 为 ex12_6. m。 在 MATLAB 命令 窗口 调用 ex12 6, 可 看 到 全 部 数据 ,由 于 数据 较 
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多 ,故此 处 略 去 大 部 分 数据 。 只 将 部 分 结果 填 和 人 表 12. 4 中 ,并 计算 对 应 的 精确 解 的 值 , 可 见 
计算 的 近似 值 是 比较 精确 的 ( 见 图 12. 10) 。 


表 12.4 

0.0 0.0 0 0 0 

/20 0. 3125562177 0. 3125568470 6. 2930 1077 
nx/10 0. 6174162638 0. 6174175318 1. 2680 10 一 
3r/20 0. 9070734726 0. 9070753359 1. 86330 10” 
/5 1. 174395522 1. 1743979344 2. 41240 10™° 
/4 1. 412800055 1. 4128029582 2. 90320 10™° 
3r/10 1. 616416764 1. 6164200844 3. 32040 10™° 
7x/20 1.780231927 1. 7802355835 3. 65650 107° 
2r/5 1. 900211871 1. 9002157721 3. 90110 10™° 
9r/20 1. 973402292 1. 9734061873 3. 89530 107° 
/2 1. 998001000 1. 9980001000 0 


0 0 
图 12.10 ”时刻 t=100 时 的 近似 解 


9x(zryy， 4 fu Ty) 9 u(r,y, 
例 12.7 ”考虑 方程 妈 生 补 作 一 10 全 汪 光 人 十 二 六 客人 ,0<x<4t0<y<40<e< 


6000。 初 始 条 件 为 w(x,y,0) 二 0, 边 界 条 件 : 当 x 二 0,zx 二 4,y 二 0,y 二 4 时 ,u(x,y,t) 二 @cosx 一 
ercosy。 取 MM 二 50,M, 一 40,N 二 50, 分 别 求 时 刻 T 王 100 和 最 后 时 刻 T 一 6000 时 的 近似 解 。 
解 ” 建 立 如 下 脚本 文件 : 


A= le-— 4; 

fxy0=inline('0','x','y'); 

bxyt= inline ('exp (y) * cos (x)-— exp (x) * cos (y) ', 'x','y', 't"); 
Dom= [0 4 0 4]; 

T= 6000; 

Mx= 0; 

My= 40; 

N= 50» 
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[ul,x,y,t]= heat2parab (A, Dom, 100, fxy0, bxyt, Mx,My,N); 
mesh (x, y, ul) 


figure 
[u2, x,y,t]= heat2parab (A, Dom, 6000, fxy0, bxyt,Mx,My,N); 


mesh (x, y, u2) 


将 以 上 脚本 文件 存 为 ex12 7.m。 在 MATLAB 命令 窗口 调用 ex12 7, 可 看 到 全 部 数 
据 , 由 于 数据 较 多 ,只 给 出 图 像 结 果 ( 见 图 12.11、 图 12. 12)， 


12.11 时 刻 z 一 100 时 的 近似 解 


12. 12 时刻 t= 二 6000 时 的 近似 解 


123 双 曲 型 方程 


1231 一 维 玻 动 方程 
双 曲 型 偏 微分 方程 的 一 个 例子 是 一 维 波 动 方程 ,表示 为 


2 2 
DA? 全 人 人， ee se He (12. 28) 
IT 


第 12 章 偏 微 分 方程 的 数值 解法 


其 边界 条 件 和 初始 条 件 为 
u(0.,t) = bo(t), u(x ,1) = br (1), 


Aau (12.29) 
u(X,0) = f(r), 了 | = 人 
1. 功能 
求解 一 维 波动 方程 (12. 28) 一 (12. 29) 的 数值 解 。 
2。 计 算 方法 
与 抛物 型 偏 微 分 方程 一 样 ,用 三 点 中 心 差 分 近似 二 阶 导 数 , 则 有 
Ui,jtl 21Li 和 Wij-l _ A Uitl,; Zui,j 本 国 Ui—1,j 
Ar? Ax? . 
其 中 
= 二 本 
Ar NT， Ai N° C12. 30) 
由 此 可 得 如 下 差分 方法 : 
Ui,j+1 一 r(uUil, 十 Mi ) 二 (2 一 2r ) ui,; Ui,j-—1， Clz. 31) 
2 
其 中 ~ 一 A Ac 。 由 于 wi,-1 二 u(xi, 一 At) 未 知 ,所 以 我 们 无 法 从 (12. 31) 式 直接 求 得 wi,i = 


六 ~ Ui,—1o0o 对 初始 条 件 的 导数 利用 中 心 差分 近似 ,有 g(x ) 一 


5 由 此 替换 (12. 31) 式 中 的 u,-_1, 可 得 


Wi l 一 (Ul 二 Mera by 二 (1 r) so Tat (12. 32) 


利用 (12. 32) 式 求 得 ui ,然后 用 (12. 31) 式 求 u,41(j 二 1,2,…)。 需 注意 以 下 事实 : (Dr 必 
须 满 足 r 三 1 才能 保证 稳定 性 ; (iibD) 解 的 精度 随 > 的 增 大 (Az 的 减 小 ) 而 增高 。 因 此 ,选择 
-~ 一 1] 是 合理 的 。 

3. 使 用 说 明 


[u, xx,tt]= hypbwave (A,Xf,T,bx0,bxf,fx gx MN) 


Zr 为 工 变化 范围 的 右 端 点 ,T 为 上 变化 范围 的 右 端 点 ,初始 条 件 图 数 fx,gx 及 边界 限 数 
bx0,bxf 需要 用 inline 图 数 或 M 文件 定义 ,M= 工 轴 方 回 的 节点 数 ,N 一 上 轴 方 回 的 节点 数 。 
输出 近似 解 。 

4. MATLAB 程序 


function [u,xx,tt]=hypbwave (A,xf,T,bx0,bxf,fx,gx,M,N) 
dx= xf/M; 
xx= [0:M] " 关 dx; 
dt= T/N; 
tt= [0:N] * dt; 
for i=1:M+1] 
u(i,1)= feval (fx,xx (i)); 
end 
for j=1:N+1 
u([l,M+1],j)= [feval (bx0,tt (]) ) :zfeval (bxf,tt(j]))]; 
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end 
r=Ax (dt/dx) “2; 
u(2:M,2)=r¥* (u(l1:M- 1,1)+u(3:M+1,1))/2+ (1—-r) * u(2:M,1)+dt x feval (gx,xx (2:M) ); 
$$ (12.32) 式 
for j=3:N+1 
u(2:M,J])=r¥* (ul(L:M-1,]j-1L)+u(3:MH1,]-1))+ (2-2x* Ir) * u(2:M,J—1)-—-u(2:M,]J— 2); 
s (12.31) 式 


end 


gul(x,t) gu(z,1) 


例 12.8 求 波动 方程 一 5 FE 二 0,0 过 ZX 过 1 ,0 二 1 过 1 ,边界 和 条件: u(0,t)= 


u(1,t) 二 0,0 二 t, 初 始 条 件 : u(x ,0)== sin(2xzx) ,了 (Cr;0) 一 2rsin(2rZz) ,0 三 Xx 三 1 的 近似 解 


( 取 M==10,N= 二 10), 并 对 1 二 0.3 时 的 近似 解 与 精确 解 w(z,i) 王 sin(2rz)(cos(2xt) 十 
sin(2xt) ) 进 行 比 较 。 
解 ” 建 立 边 界 和 初始 条 件 限 数 及 脚本 文件 。 


x= nline( sin(2Y plY) ss XK) 
gzx= inline('2x* pix sin(2x* pi x) '); 
bx0= inline('0'); 
bxf=inline('0'); 
A=1; 
xf= 1; 
M= 10» 
T=1; 
N= 10; 
[u,x,t]= hypbwave (A, xf,T,bx0, bxf, fx, gx,M,N); 
figure (1) cl] 
surf (t,x,u) 
figure (2),clf 
for n=1:N s 动 画 
Pilottkzyvdals ,了 Ba)) azxzlIs(L0 xzxE 一 2 21});pause (0.5) 
end 
uxt=inline('sin(2* pix x) * (cos(2*x pixt)+sin(2* pixt))','x','t'); 解析 解 
M= 10; 
N= 10; 
for i=0:M 
for j=0:N 
ul (i+1,j+1)=uxt (i/M,j/N); s 解 析 解 在 节点 处 的 值 (精确 解 ) 
end 


end 

maxerr=max (max (abs (u- ul))) s 近 似 解 与 精确 解 的 最 大 误差 
存 为 ex12 8.m。 在 MATLAB 命令 窗口 调用 ex12 8, 可 看 到 全 部 数据 。 由 于 数据 较 多 ,所 
以 此 处 给 出 图 像 结 果 ( 图 12. 13、 图 12. 14) ,并 将 部 分 数据 结果 填 人 表 12. 5, 并 计算 对 应 的 
精确 解 的 值 ,可 见 计 算 的 近似 值 有 不 小 的 误差 (最 大 误差 为 0. 0623743019)。 可 通过 增加 
M,N 的 值 来 提高 精度 ,例如 , 若 取 M=N=100, 则 近似 值 与 精确 值 在 节点 处 的 最 大 误差 为 


6. 2828e 一 004。 


表 12.5 


ky 


‘wi 
= 
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0. 
0. 
0. 
避 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


CE CD 0 


.37738136237 
.6106158710 
.6106158710 
. 3773813624 


.4159308009 
.6729901729 
. 6729901729 
.4159308009 


.3773813624 
.6106158710 
.6106158710 
.3773813624 


.4159308009 
.6729901729 
.6729901729 
.4159308009 


图 12.13 波动 方程 所 表示 的 振 弦 


0 0.1 02 03 04 05 06 0 08 0.9 


12.14 瞬 图 


|ulCxi ,0. 3)— wu | 


= 


. 03854943853 
. 0623743019 
.0623743019 
.0385494385 


.03854943853 
.0623743019 
.0623743019 
.03854943853 
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2 2 
例 12. 9 求解 波动 方程 一手 季 * 开 一 和 各所 二 一 0,0 过 x 过 x,0<1<<2x, 边 界 条 件 : u(0, 


9xr’ 
> ,0<z< 王 ， 

1) 二 wu(1,1) = 二 0,0 过 1, 初始 条 件 : kx(Cz,0) 一 EC 
0, 二 


解 ”建立 如 下 脚本 文件 : 


fx= inline('sin(2 关 X)V/2. 关 (0<=x & x<=pi/2)"', 'x'); 
gzx= inline('0'); 

bx0= inline('0'); 

bxf= inline('0'); 

A= 1;xf=pi;M= 40; 

T=2*¥* pi;N= 80; 

[u,x,t]= hypbwave (A, xf,T,bx0, bxf, fx, gx,M,N); 
figure,clf 


mesh (t,x,u) 


将 以 上 脚本 文件 存 为 ex12_9.m。 在 MATLAB 命令 窗口 调用 ex12_9, 由 于 数据 较 多 ， 
所 以 此 处 只 给 出 图 像 结 果 ( 见 图 12. 15)。 


12.15 波动 方程 所 表示 的 振 弦 


1232 二 维 玻 动 方程 


双 曲 型 偏 微 分 方程 的 为 一 个 例子 古 二 维 波动 方程 ,表示 为 


durToyst) AO uyYyst) ，D azyyyt) 
一 
ot 9 六 9y 


0 三 TXT 0yE ye 0HtET, C12.33) 
其 边界 条 件 和 初始 条 件 为 
u(0,yt) = byo (yt), MOZryyot) = br (yt), 
U(XT0,1) = by (Xt), MTZyyrt) = by r,t), 
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| 
u(x,y,0) = fr = g(x,y), (12. 34) 
t 一 0 
1. 功能 
求解 二 维 波 动 方程 (12. 33) 一 (12. 34) 的 数值 解 。 
2. 计算 方法 
与 一 维 波动 方程 一 样 ,用 三 点 中 心 差分 近似 二 阶 导 数 , 则 有 
k++] k & 一 1 大 开 3 3 天 3 
Ui,; 一 2ui,j 本 Uij _ Ui,jtl ZuUi,j = Wi, j—1 zi Zui,j 入 | 
8 A 一 ， (12. 35) 


其 中 Az 一 这 ,Ay 一 阐 ,一 六 。 由 此 可 得 如 下 差分 方法 : 


Ut! = ri 二) 二 T2011 or mr uj;t+r,tw,) —u, (12. 36) 


2 2 
其 中 +,=A 全 ,r+,=A4 A 。 由 于 2 二 u(x; ,yw ,一 At) 未 知 ,所 以 我 们 无 法 从 (12. 36) 式 直 


Fa 
接 求 得 (k 二 0): 
Wm a ls 12.37) 

对 初始 条 件 的 导数 利用 中 心 差分 近似 ,有 


1 = 

有 Ui Li 
SCZi yyi) DA/ 9 (12. 38) 

由 此 替换 (12. 37) 式 中 的 xz ,可 得 
wi, =5 [rn qr ti, 1 ) 十 ry (Uttl,; 本 Wi | 
(l= pp E(t, (12. 39) 
利用 (12. 39) 式 求 得 ul,; ,然后 用 (12. 36) 式 求 ui!1(k 二 1,2,…)。 差 分 法 稳定 的 充分 条 件 是 
4AAr’ 
0 ss o 
rT AA 


3. 使 用 说 明 
[u, Xxx, yyYtt]= hypbwave2 (A,xf, yf,T,bxyt,fxy,gxy,Mxz,My,N) 


Xf 为 x 变化 范围 的 右 端 点 ,yy 为 y 变化 范围 的 右 端 点 ,TT 为 1 变化 范围 的 右 端 点 ,初始 
条 件 好 数 fxy, gxy 及 边界 限 数 bx0,bxf,by0,byf 需要 用 M 文件 定义 ,bxyt 二 | bx0, bxf， 
by0,byfj] ,Mz/My 二 x/y 轴 方 问 的 节点 数 ,N 三 上 轴 方 向 的 节点 数 。 输 出 最 后 时 刻 了 的 近 
似 解 。 

4. MATLAB 程序 


function [u,xx,yy,tt]=hypbwave2 (A,xf, yf,T,bxyt,fxy,gxy,Mx,My,N) 
dx= xf/Mx;xx= [0:Mx] * dx;dy= yf/My; 
yy= [0:My] ' * dy;dt=T/N;tt= [0:N] * dt; 
u= Zeros (My+ 1, Mxt+ 1) ;ut= zeros (My+ 1,Mx+ 1); 
for j=2:Mx 
for i=2:My 
u(i,J)= feval (fxy,xx(j),yy (i)); 
ut(i,j)= feval (gxy,xx(j),yy (i)); 
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end 
end 


rx=Ax (dt/dx) “2;ry=A*x (dt/dy) “2; 


uul=u;» 
for k= 0:N 
tt=kx dt; 
for i=1:My+1 边界 条 件 
ul(i, [1,Mx+ 1])= [feval (bxyt {1},yy (i),tt),feval (bxyt{2},yy (i),tt)]; 
end 


for j=1:Mx+1 
u([1,My+1],j)= [feval (bxyt {3}, xx(j),tt);feval (bxyt {4},xx(j) ,tt)]; 
end 
if k==0 
for i=2:My 
for JjJ=2:Mx Eq. (12.39) 
Ui)=0.5% (rz (LU (TD) 
+ry¥* (uul (i—1,j)})+uul (i+1,j)))+ (1-— rx- ry) ¥* u(i,j)+oat* ut(i,j); 
end 
end 
else 
for i=2:My 
for j= 2:Mx $S Ed. (12.36) 
U1)= rx (ol 一 Ja 了] 十 工 ) js 
ry (al(i LI To (二 林寺 之美 ja2] 2 
end 
end 
end 
uu2= uul;uul=u; 
mesh (xx, yy,u) ,axis ([0,2,0,2,-0.1,0.1]) ,pause; 
s 画 出 每 一 时 刻 kx dt 时 波动 方程 所 表示 的 振 弦 ,执行 此 程序 后 , 按 任意 键 继续 
saxis([…]) 方 括号 内 的 数据 是 例 12.10 的 数据 ,对 不 同 的 问题 需要 更 换 相应 的 数据 


end 


本 2 “9V， 9 9V， 9? 9VV， 
例 12. 10 求解 波动 方程 和 说 一 计 ( 放 个 于 二 实 守 于 ,0<z<2,0< 


y 三 2,0 二 1 二 2, 边 界 条 件 : u(0,y,t) 二 wu(2, yt)= 二 0,u《(xX,0,1) = 二 u(xX,2,1) = 二 0, 初 始 条 件 : 


| Iu 
(zyyy0) 一 0. lsin(xzx)sin(xy/2) ,了 (zy 0) 一 0。 


解 ”建立 如 下 郴 数 文件 ,运行 后 有 如 下 图 形 结果 。 


function exl2 10 

fxy= inline('0.1x sin(pix x) * sin(pix y/2)', 'x', 'y'); 
gxy= inline('0', 'x','y'); 

A=0.250;xf 2;yG=2;T=2; 

Mx= 30;My= 30; N= 30; 
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bxyt= {@ bx012 10,@ bxfl2 10,@by012 10,@byfl2 10}; 
要 用 function 定义 bx0 等 边界 函数 ,然后 加 函数 句柄 @ 放 在 { } 方 括号 内 

[uv xx, yyvrtt]=hypbwave2 (A, xf, yf,T,bxyt, fxy, gxy, Mxz,My,N) 
function w=bx012 10(y,t) 

w= 0» 
function w=bxfl12 10(y,t) 

Ww= 0; 
function w=by012 10 (x,t) 

w= 0} 
function w=byfl2 10 (x,t) 


W= 0: 


存 为 ex12_10.m。 在 MATLAB 命令 窗口 调用 ex12_10, 由 于 数据 较 多 ,所 以 此 处 只 给 
出 图 像 结果 ( 见 图 12. 16)。 


12.16 t= 二 2.0 时 刻 波 动 方程 所 表示 的 振 艾 


II 


> 0 DD 一 


CO ND No DD 一 


程序 察 5 


Gausseli 用 Gauss 顺序 消去 法 求解 线性 方程 组 
Gausselimpiv 用 Gauss 列 主 元 消去 法 求解 线性 方程 组 
GaussJor 用 列 主 元 的 Gauss-Jordan 消去 法 求解 线性 方程 组 
LUDecomp 用 LU 分 解法 求解 线性 方程 组 
LLtdecomp 用 LL’' 分 解法 求解 线性 方程 组 
LDLtdecomp 用 LDL: 分 解法 求解 线性 方程 组 
tridiag 用 追赶 法 求解 三 对 角 方 程 组 
QRDecomsch,QRDecomhouse 用 QR 分 解法 求解 线性 方程 组 
Iteratepro 改进 线性 方程 组 解 的 精度 
Jacobiiter 用 Jacobi 授 代 法 求解 线性 方程 组 
Gaussdel 用 Gauss-Seidel 迭代 法 求解 线性 方程 组 
SOR 用 松弛 迭代 法 求解 线性 方程 组 
JGConverge 判断 Jacobi 迭代 法 或 Gauss-Seidel 迭代 法 的 收敛 性 
Laginterp 用 Lagrange 插值 法 求 插值 多 项 式 
Newinterp 用 牛顿 插值 法 求 插值 多 项 式 
Herminterp 求 Hermite 插值 多 项 式 
Hermit3p 求 分 段 3 次 Hermite 插值 多 项 式 
splinterl 求 紧 压 三 次 样 条 插值 子 数 
splinter2 求 满足 端点 曲率 调整 边界 条 件 的 样 条 插值 果 数 
splinter3 求 满足 非 节 点 Cnotaknot) 边 界 条 件 的 三 次 样 条 插值 函数 
splinter4 求 出 满足 周期 边界 条 件 时 的 三 次 样 条 插值 函 
Remezpoly 用 Remez 算法 求 曲 数 的 ) 次 最 佳 一 致 通 近 多 项 式 
Chebappr 求 困 数 的 近似 最 佳 一 致 通 近 多 项 式 
lesquare 求 男 数 的 最 佳 平 方 通 近 多 项 式 
Legepoly 求 困 数 的 Legendre 最 佳 平方 通 近 多 项 式 
chebpoly 求 田 数 的 Chebyshev 最 佳 平方 通 近 多 项 式 
lesfit 用 最 小 二 乘法 求 离散 数据 的 拟 合 多 项 式 
lesorthfit 用 正 交 多 项 式 作 最 小 二 乘 拟 合 
padepoly 求 孙 数 的 Pade 有 理 通 近 
drawcomtrzd 用 复合 梯形 公式 求 积 分 
comsimp 用 复合 Simpson 公式 求 积 分 
comcotes 用 复合 Cotes 公式 求 积 分 
trapzstep 用 变 步 长 的 复合 梯形 公式 求 积 分 
simpstep 用 变 步 长 的 复合 Simpson 公式 求 积 分 
cotestep 用 变 步 长 的 复合 Cotes 公式 求 积 分 
romberseq 用 Romberg 公式 求 积 分 


ws 
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adapsimp 用 有 自 适 应 Simpson 公式 求 积 分 
gausslegendre 用 Gauss-Legendre 公式 求 积 分 
gausschebys 用 Gauss-Chebyshev 公式 求 积 
gausslaguerre 用 Gauss-Laguerre 公式 求 积分 
gausshermite 用 Gauss-Hermite 公式 求 积 分 
gaussradau 用 Gauss-Radau 公式 求 积 分 
gausslobat 用 Gauss-Lobatto 求 积 公式 
simp2int 用 复合 Smpson 公式 求 二 重 积 分 
simpch2int 利用 变 步 长 的 Smpson 公式 求 二 重 积 分 
gauss2int 用 复合 Gauss 公式 求 二 重 积分 

gauss3int 用 复合 Gauss 公式 求 三 重 积 
goldenopt 用 黄金 搜索 法 求 单 峰 一 元 函数 的 极 小 值 
fibopt 用 Fibonacci 搜索 法 求 单 峰 一 元 限 数 的 极 小 值 
quadopt 用 二 次 通 近 法 求 单 峰 一 元 函数 的 极 小 值 
triopt 用 三 次 插值 法 求 单 峰 一 元 函数 的 极 小 值 
newtonopt 用 牛顿 法 求 单 峰 一 元 困 数 的 极 小 值 

neldmeadopt 用 单纯 形 法 求 多 元 盟 数 的 局 部 极 小 值 

gradsopt 用 最 速 下 降 法 (梯度 法 ) 求 多 元 困 数 的 局 部 极 小 值 

newtopt 用 牛顿 法 求 多 元 限 数 的 局 部 极 小 值 

conjgopt 用 共 斩 梯 度 法 求 多 元 男 数 的 局 部 极 小 值 


OO 一 一 ~ 


OO 0 5 一 


.1 dfpopt 用 Davidon-Fletcher-Powell 变 尺度 法 求 多 元 阴 数 的 局 部 极 小 值 
.2 bfgsopt 用 BFGS 法 求 多 元 函数 的 局 部 极 小 值 


simanlopt 用 模拟 退火 算法 求 多 元 困 数 的 极 ( 最 ) 小 值 

genetic 用 遗传 算法 求 多 元 限 数 的 极 ( 最 ) 小 值 
hessenb 将 实 和 矩阵 正 交 相似 约 化 为 上 Hessenberg 矩阵 
QRDecomhouse 将 实 和 矩阵 分 解 为 正 交 和 矩阵 与 上 三 角 和 矩阵 的 乘积 
powereig 用 乘 笑 法 求实 矩阵 的 主 特征 值 和 主 特征 向 量 
fanpower 用 反 老 法 求实 矩阵 的 按 模 最 小 的 特征 值 和 特征 回 量 
invshift 用 移 位 反 符 法 求实 矩阵 的 特征 值 和 特征 向 量 

Jacobieig 用 Jacobi 法 求实 对 称 和 矩阵 的 全 部 特征 值 和 特征 向 量 

symqr 用 QR 方法 求实 对 称 和 矩阵 的 全 部 特征 值 

1 hessenqr 用 QR 方法 求实 矩阵 的 全 部 特征 值 

2 shiftqr 用 原点 移 位 的 QR 方法 求实 矩阵 的 全 部 特征 值 

3 shift2qr 用 双重 步 QR 方法 求实 和 矩阵 的 全 部 特征 值 

fixiter 用 迭代 法 求 方程 的 一 个 根 
1 aitkeniter 用 Aitken 加 速 法 求 方程 的 一 个 根 


OO 局 了 局 吧 


.2 steffniter 用 Steffensen 加 速 法 求 方程 的 一 个 根 
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bisect 用 二 分 法 求 方程 的 一 个 根 
regfals 用 试 位 法 法 求 方程 的 一 个 根 
newraph 用 牛顿 -Raphson 迭代 法 求 方程 的 一 个 根 
secant 用 割 线 法 求 方程 的 一 个 根 
lfnewton 用 改进 的 牛顿 法 求 方程 的 一 个 根 
halley 用 Halley 法 求 方程 的 一 个 根 
brent 用 Brent 法 求 方程 的 一 个 根 
muller 用 抛物 线 法 求 方程 的 一 个 根 
mulfixiter 用 不 动 点 迭代 法 求 非 线性 方程 组 的 一 组 解 
mulnewton 用 牛顿 法 求 非 线性 方程 组 的 一 组 解 
impmulnew 用 修正 牛顿 法 求 非 线性 方程 组 的 一 组 解 
broyden 用 Broyden 方法 求 非 线性 方程 组 的 一 组 解 
nonlsdfp 用 DFP 方法 求 非 线性 方程 组 的 一 组 解 
nonlsbfs 用 BFS 方法 求 非 线性 方程 组 的 一 组 解 
continu 用 数值 延 拓 法 求 非 线性 方程 组 的 一 组 解 
paramdif 用 参数 微分 法 求 非 线性 方程 组 的 一 组 解 
eulerdif 用 Euler 方法 求 一 阶 和 党 微分 方程 的 数值 解 
impeuler 用 改进 的 Euler 方法 求 一 阶 稼 微分 方程 的 数值 解 
heunsec 用 Heun 方法 求 一 阶 沼 微分 方程 的 数值 解 
kutta3 用 三 阶 Kutta 方法 求 一 阶 常 微分 方程 的 数值 解 
rungek4 用 经 典 Runge-Kutta 方法 求 一 阶 常 微分 方程 的 数值 解 
kuttan5 用 Kutta-Nystrom 五 阶 六 级 方法 求 一 阶 常 微分 方程 的 数值 解 
huta6 用 Huta 六 阶 八 级 方法 求 一 阶 常 微分 方程 的 数值 解 
rungekf45 用 Runge-Kutta-Fehlberg 方法 求 一 阶 第 微分 方程 的 数值 解 
adamsba 用 Adams-Bashforth 方法 求 一 阶 常 微分 方程 的 数值 解 


DD = DD = NN = 


.1 adprecor4 用 四 阶 Adams 预测 -校正 方法 求 一 阶 常 微分 方程 的 数值 解 
.2 imadprecor 用 改进 的 四 阶 Adams 预测 -校正 方法 求 一 阶 第 微分 方程 的 


数值 解 


.3 hamprecor 用 Hamming 预测 -校正 方法 求 一 阶 稼 微分 方程 的 数值 解 


vsprecor4 用 Adams 变 步 长 预测 -校正 方法 求 一 阶 第 微分 方程 的 数值 解 
gragextra 用 Gragg 外 推 法 求 一 阶 常 微分 方程 的 数值 解 

1 rk4symegq 用 四 阶 Runge-Kutta 方法 求解 一 阶 常 微分 方程 组 的 数值 解 
1 shootlin 用 打靶 法 求解 二 阶 线性 微分 方程 的 边 值 问题 

2 shtnlin 用 打靶 法 求解 二 阶 非 线 性 微分 方程 的 边 值 问题 

1 findiff 用 差分 法 求解 二 阶 线性 微分 方程 的 边 值 问题 

2 nonldiff 用 差分 法 求解 二 阶 非 线 性 微分 方程 的 边 值 问题 

helmtz 用 差分 法 求 椭圆 型 偏 微分 方程 的 数值 解 
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12. 
12. 
12。 
12. 
12. 


I 5 一 


forwdparab 用 显 式 回 前 差分 法 求 抛物 型 偏 微分 方程 的 数值 解 
backdparab 用 隐 式 向 后 差分 法 求 抛物 型 偏 微分 方程 的 数值 解 
crank_nich 用 Crank-Nicholson 法 求 抛物 型 偏 微分 方程 的 数值 解 
heat2parab 求 二 维 热传导 方程 的 数值 解 

hypbwave 求 一 维 波 动 方程 的 数值 解 

hypbwave2 求 二 维 波动 方程 的 数值 解 
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